実行時エラー91 - オブジェクト変数またはWithブロック変数が設定されていない - ExcelからXMLを更新する

Question

Excel VBScriptを使用して更新およびXMLを更新しようとしているときに実行時エラー91 - Object変数またはWithブロック変数が設定されていない

Sub UpdateXML() 
    Call fnUpdateXMLByTags 
    End Sub 

    Function fnUpdateXMLByTags() 

    Set xmldoc = CreateObject("Microsoft.XMLDOM") 
    xmldoc.Load "F:\XML\XML1.xml" 
    oMsgId = "15544216089S01F15544100002396000002" 
    Set nMsgId = xmldoc.SelectSingleNode("//AcctSwtchBtch/GrpHdr/MsgId") 
    nMsgId.Text = oMsgId 
    strResult = xmldoc.Save("F:\XML\XML1.xml") 

    End Function 

Answer 1

関数は何かを返す必要があります。例：

Function FileExists(FilePath As String, FileName As String) As Boolean 

Dim CurrentDir As String 
CurrentDir = CurDir ' Used to set the CurDir back to what it was 

If FilePath <> "" Then ChDir FilePath 

If Dir(FileName) <> "" Then 
    FileExists = True 
Else 
    FileExists = False 
End If 
ChDir CurrentDir 

End Function 

機能からサブに変更することをお勧めします。

Dim xmldoc As Object 
Set xmldoc = CreateObject("Microsoft.XMLDOM") 
... 

私はnMsgId種類について確認していないので、「nMsgId設定」から最後の部分をコメントと：：

Answer 2

私はあなたが薄暗いせずに設定していると仮定して

Debug.Print TypeName(xmldoc.SelectSingleNode("//AcctSwtchBtch/GrpHdr/MsgId")) 

正しいタイプのnMsgIdインスタンスを作成できます