Outlook到Excel超链接问题

希望你能帮助我理解我做错了什么

作为Outlook宏的一部分，我希望使用指向文档的超链接更新excel中的单元格

'~~> Excel variables
Dim oXLApp As Object, oXLwb As Object, oXLws As Object

'~~> Establish an EXCEL application object
    On Error Resume Next
    Set oXLApp = GetObject(, "Excel.Application")
    '~~> If not found then create new instance
    If Err.Number <> 0 Then
        Set oXLApp = CreateObject("Excel.Application")
    End If
    Err.Clear
    On Error GoTo 0
'~~> Show Excel
    oXLApp.Visible = True
    '~~> Open the relevant file
    Set oXLwb = oXLApp.Workbooks.Open("V:\Dir\filename.xls")

    '~~> Set the relevant output sheet. Change as applicable
    Set oXLws = oXLwb.Sheets("Outstanding")

       oXLws.Range("R11").Select
       oXLws.Range("R11").Hyperlinks.Add Anchor:=Selection, Address:= _
        "V:\Dir\" & emailsub & ".msg" _
        , TextToDisplay:="Here"

“~~>Excel变量
Dim oXLApp作为对象，oXLwb作为对象，oXLws作为对象
“~~>建立EXCEL应用程序对象
出错时继续下一步
设置oXLApp=GetObject（，“Excel.Application”）
“~~>如果找不到，则创建新实例
如果错误号为0，则
设置oXLApp=CreateObject（“Excel.Application”）
如果结束
呃，明白了
错误转到0
“~~>显示Excel
oXLApp.Visible=True
“~~>打开相关文件
设置oXLwb=oXLApp.Workbooks.Open（“V:\Dir\filename.xls”）
“~~>设置相关的输出表。更改（如适用）
设置oXLws=oXLwb.表（“未完成”）
oXLws.范围（“R11”）。选择
oXLws.Range（“R11”）.Hyperlinks.Add锚定：=选择，地址：=_
“V:\Dir\”&emailsub&“.msg”_
，TextToDisplay:=“此处”

出于某种原因，它只是调试，代码在excel中运行良好，所以我一定是遗漏了什么，请帮助

---

干杯，Dom

因为您是最新使用Excel绑定的，Outlook不明白什么是

选择

更改这些行

oXLws.Range("R11").Select
oXLws.Range("R11").Hyperlinks.Add Anchor:=Selection, Address:= _
"V:\Dir\" & emailsub & ".msg", TextToDisplay:="Here"

到

oXLws.Range("R11").Hyperlinks.Add Anchor:=oXLws.Range("R11"), Address:= _
"V:\Dir\" & emailsub & ".msg", TextToDisplay:="Here"