Ошибка времени выполнения 91 - Объектная переменная или с переменной блока не установлена ​​- обновление XML из Excel

Question

Я получаю ошибку времени выполнения 91 - переменная объекта или с переменной блока, не заданной при попытке обновления, и XML с помощью Excel Vbscript

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 

Предлагаю изменить его с помощью функции на вспомогательное устройство.

Answer 2

Я полагаю, что вы установили без Dim:

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

Я не уверен nMsgId типа, так комментируют заключительную часть от "Set nMsgId" и:

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

с правильный тип, вы можете создать правильный экземпляр nMsgId