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"

在工作表中应放置链接的位置是“锚点”，“地址”是要打开的工作簿的名称，“子地址”是打开时应选择的工作表和范围。