vba - 通过代码设置超链接

Question

我正在尝试设置 VBA 语法以在几个单元格中创建超链接。这就是我要解决的问题，但我收到“无效的过程调用或参数”的调试错误

这是我产生错误的语法

Public Sub AddHyperlinks()
Dim ws As Worksheet, lastrow As Long, i As Long
Set ws = ActiveSheet
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lastrow
  ActiveSheet.Hyperlinks.Add Anchor:=ws.Cells(i, 3), Address:="", SubAddress:="'" & ws.Cells(i, 2).Value & "'!A1", TextToDisplay:=ws.Cells(i, 3)
Next i
End Sub

样本工作簿
Sample Workbook

Answer 1

TextToDisplay 确实需要是一个字符串。使用 CStr (convert to string) 可以解决这个问题。

TextToDisplay:=CStr(ws.cells(i, 3))

进行该更改后，这将使用您的示例工作簿成功测试。