Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/xml/13.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使用vba将修改后的xml文件保存到工作表单元格_Xml_Excel_Vba - Fatal编程技术网

如何使用vba将修改后的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 ---

我已从工作表中的单元格加载了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 ----

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文档中有空格?