使用 VBA 将超链接字段写入循环内的另一个工作表范围

Writing a hyperlink field to another sheets range within a loop using VBA

我目前正在尝试获取 VBA 语法,以便将超链接写入现有工作表上的某个范围。我有我认为应该可以工作的代码,但我似乎无法让它按应有的方式工作。任何帮助都会很棒。下面是我不明白为什么它不起作用的代码。

Sheets("EmailDataOutput").Hyperlinks.Add anchor:=Sheets("EmailDataOutput").Range("h" & outputrow), Address:="https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=" & projid, ScreenTip:="", TexToDisplay:="Click here to go to Project"

在此先感谢您的帮助,

雅各布

注意:这段代码中有两个变量outputrowprojid,您应该为它们赋值。

With Worksheets("EmailDataOutput") 
 .Hyperlinks.Add Anchor:=.Range("h" & outputrow), _ 
 Address:="https://rocketsutoledo.sharepoint.com/sites/pwa/Project%20Detail%20Pages/Schedule.aspx?ProjUid=" & projid, _  
 ScreenTip:="", _
 TextToDisplay:="Click here to go to Project" 
End With