使用VBA在循环内向其他工作表区域写入超链接字段的问题求助

核心错误点 #

你提供的代码存在参数拼写错误：TexToDisplay 为错误写法，正确参数名是 TextToDisplay，缺失了1个字母t，这是代码无法达到预期效果的最直接原因。

其他潜在排查点 #

• 确认outputrow变量已提前赋值，且为大于0的正整数，避免定位到无效行
• 确认projid变量已提前赋值，无空值、非法特殊符号，避免拼接后的链接格式异常
• 确认当前工作簿存在名为EmailDataOutput的工作表，名称无前后空格、大小写匹配，且工作表未被隐藏、未设置编辑保护

修正后可运行代码 #

' 变量可根据你的实际业务逻辑调整赋值规则，此处为示例避免未定义报错
Dim outputrow As Long
Dim projid As String
outputrow = 2 ' 替换为你实际的行号取值逻辑
projid = "替换为实际项目ID" ' 替换为你实际的项目ID取值逻辑

' 修正参数拼写后的超链接写入代码
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:="", _
    TextToDisplay:="Click here to go to Project"

简化写法参考 #

可以用With语句避免重复引用工作表，代码更简洁：

With Sheets("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

内容的提问来源于stack exchange，提问作者Jacob.b20