Question

我使用以下代码使用vba将公式插入到单元格中。代码插入一个超链接，其中包含一些通向文件路径的静态文本，然后在文件路径的末尾，我希望能够添加动态单元格引用，例如A，然后是行的编号。

在A栏的单元格中，我有文件夹的名称。我使用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"")"

在vba中添加动态单元格引用

2 个答案: