将 XML 从 HttpRequest 转储到文本文件中

Question

我正在从 Ebay 请求一些 XML，但返回的 XML 对于 VBA 调试窗口来说太长，因此我需要将返回的 XML 转储到文件中 - 作为一个 n00b 并在黑暗中掌握，我可以找人帮助我获取 XMLHttpRequest.responseXML.XML 内容并将其放入文件的正确语法。这是我的代码（全部有效 - 我只需要写入文件的行）

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("Z:\AccessData\Temp.xml")     

XMLHttpRequest.send (body)
objxmldoc.loadXML (XMLHttpRequest.responseXML.XML)
Debug.Print XMLHttpRequest.responseXML.XML ' valid XML showing at this point

Answer 1

您是否打算将数据保存到文件中。那么就可以了。将 XML 作为字符串传递到文件。

Sub your_function()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile("Z:\AccessData\Temp.xml") 

Dim sResult as String
XMLHttpRequest.send (body)
sResult = XMLHttpRequest.responseText()
SaveToFile "d:\AccessData\Temp.xml", sResult

End Sub

Sub SaveToFile(sFileName, sContent)
    'Saves a string to a file and closes the file
    ' sample usage: SaveToFile "d:\test.txt", "test"
    Dim fs As Object
    Dim file As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set file = fs.CreateTextFile(sFileName, True)
    file.WriteLine (sContent)
    file.Close
End Sub