在vba中添加動態單元格引用

Question

我正在使用以下代碼使用vba將公式插入到單元格中。 該代碼會插入帶有指向文件路徑的靜態文本的超鏈接，然后在文件路徑的末尾，我希望能夠添加動態單元格引用，例如A，然后添加行號。

在我的AI列的單元格中，有文件夾的名稱。 我正在使用DestRow定義當前行號。 所以我的問題是如何糾正我的公式，以便在單擊鏈接時打開鏈接以獲取所單擊行的正確文件夾名稱？ 謝謝

 ws2.Range("S" & DestRow).Formula = "=HYPERLINK(""\\UKSH000-FILE06\Purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\"" & K" & DestRow & ",""Attached"")"

Answer 1

您可以嘗試包括INDIRECT（）函數：

ws2.Range("S" & DestRow).Formula = "=HYPERLINK(""\\UKSH000-FILE06\Purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\"" & INDIRECT(""K""&" & DestRow & ",""Attached"")"

Answer 2

嘗試，

ws2.Range("S" & DestRow).Formula = "=HYPERLINK(""\\UKSH000-FILE06\Purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\" & ws2.Range("K" & DestRow).Value & """,""Attached"")"

FWIW，我也討厭使用帶引號的字符串。

附錄：這應該在動態文件夾之后添加靜態文件名：

ws2.Range("S" & DestRow).Formula = "=HYPERLINK(""\\UKSH000-FILE06\Purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\" & ws2.Range("K" & DestRow).Value & "\audit.xls"",""Attached"")"