在 VBA 中将 XML 文件转换为字符串变量

Question

我希望在 Excel VBA 中将 XML 文件的内容转换为字符串变量，以便我可以在文件中搜索特定字符串。

但是我不知道如何进行从 XML 文件到 String 变量的初始转换。到目前为止我所能做的就是加载 XML 文档，然后我就卡住了。

Public Function DetermineSpecifiedChange(ByVal vstrInputGBOMPath As String, ByVal vstrInputPDPPath As String)


Dim strPDPString As String
Dim strGBOMString As String

Dim xmlGBOM As New DOMDocument60

Dim xmlPDP As New DOMDocument60

strPDPString = xmlPDP.Load(vstrInputPDPPath)

End Function

到目前为止，所有这些返回的结果都是“True”，表示正在加载文件。

我将如何将 XML 文件转换为字符串？

Answer 1

这是一种按照您的要求进行操作的方法：

Dim FSO As Object : Set FSO = CreateObject("Scripting.FileSystemObject")    
Dim strXml As String
strXml = FSO.OpenTextFile("C:\myfile.xml").ReadAll