ここで私が間違っていることを理解するのを手伝ってくれることを願っています。
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 から正常に動作するため、何か不足している必要があります。助けてください!
乾杯、ドム