如何使用vba将修改后的xml文件保存到工作表单元格
我已从工作表中的单元格加载了XML内容,修改XML后,我尝试将XML文件保存回工作表中的其他单元格。执行此操作时出错如何使用vba将修改后的xml文件保存到工作表单元格,xml,excel,vba,Xml,Excel,Vba,我已从工作表中的单元格加载了XML内容,修改XML后,我尝试将XML文件保存回工作表中的其他单元格。执行此操作时出错 Sub XMLTest01() Dim xmlDoc As MSXML2.Dom Document Set xmlDoc = New MSXML2.Dom Document Dim strXML As String Strxml = sheets("sheet2").Range("a1") xmlDoc.LoadXML(strXML) ---- some logic ---
Sub XMLTest01()
Dim xmlDoc As MSXML2.Dom Document
Set xmlDoc = New MSXML2.Dom Document
Dim strXML As String
Strxml = sheets("sheet2").Range("a1")
xmlDoc.LoadXML(strXML)
---- some logic ----
xmldoc.save ( sheets("sheet2").Range("a1") )
end
请告诉我如何将修改后的xml保存到单元格MSXML的方法仅适用于将DOM对象保存到外部.xml文件,因此需要定义的路径。考虑将其保存到临时文件,然后使用FSO将内容读入字符串输出变量,该变量稍后输出到单元格:
。。。
xmldoc.save“C:\Path\To\Temp.xml”
作为对象的Dim objFSO
将strXML设置为字符串
设置objFSO=CreateObject(“Scripting.FileSystemObject”)
strXML=objFSO.OpenTextFile(“C:\Path\To\Temp.xml”).ReadAll
图纸(“图纸2”)。范围(“A1”)=strXML
对于较大的文件,请逐行执行以下操作:
Dim strXML作为字符串,line作为字符串
Dim fileNo为整数
fileNo=FreeFile
打开“C:\Path\To\Temp.xml”作为#fileNo输入
不执行EOF时执行(文件号)
行输入#文件号,行
strXML=strXML&行
环
关闭#文件号
图纸(“图纸2”)。范围(“A1”)=strXML
您可以编辑以共享您面临的错误。为什么在Dom文档中有空格?