excel vba +到其他工作簿的超链接

Question

我有workbookA，我运行一个宏，它将信息从workbookA复制到workbookB。我想为每一行添加一个超链接（所以我可以找到这一行在workbookA中的位置）。但我无法让它发挥作用。在相同的工作簿中，它可以使用不同的工作表。

我的代码：

Set rw = sh.rows(i)
Set targetCell = rw.Cells(1, "R")
wbB.Sheets("Sheet1").Hyperlinks.add Anchor:=rng.EntireRow.Cells(1, "A"), Address:="", SubAddress:="='" & sh.name & "'!" & targetCell.Address & "", TextToDisplay:="Link"

的Tx！

Answer 1

要使用超链接打开其他工作簿，您应该执行以下操作：

wbB.Sheets("Sheet1").Cells(10, 1).Hyperlinks.Add Anchor:=wbB.Sheets("Sheet1").Cells(10, 1), Address:="Your.xlsm", SubAddress:="Sheet1!A10", TextToDisplay:="Link"

如果您的Anchor是应在工作表中放置链接的位置，则address是要打开的工作簿的名称，SubAddress是打开时应选择的工作表和范围。