怎样才能用EXCEL修改XML文件？

smileoa

ZCFZB_20110701_20110930_520103578624536_V10.rar (722 Bytes, 下载次数: 153)

2011-12-13 23:54 上传

点击文件名下载附件

附件是一个XML文件，可以用记事本方便的打开和编辑，因为有大量数据要处理，我想用EXCEL打开并编辑里面的数据，因为EXCEL可以从外部EXCEL工作薄引用数据，这样可以大大节省时间。问题是：用EXCEL编辑完以后应该怎样保存数据而不改变原XML文件的格式？我需要制作几千份不同的这种XML文件（仅里面的数据不同），不知道EXCEL能否实现，请高手帮忙看看。如果有其它批量修改XML文件的方法也请赐教！

liucqa

按txt文件处理即可，处理完毕注意用记事本看一下编码是否为ANSI

smileoa

就不能用EXCEL修改吗？
我要根据一个EXCEL工作薄的信息，生成几千个这样的XML文件啊，如果用文本编辑器那几乎是不可能完成的任务。

smileoa

请老师们帮帮忙，先谢了

Moneky

把你的表格形式和处理结果示例发出来看看吧不太懂xml，看了一下xml文件的结构，是否如下分析：


给楼主一个方案。用VBA导入xml为工作簿，然后处理后写一个VBA到处成原格式的xml文件。（楼主的xml是其他软件生成的吗？）

smileoa

是其它软件生成的，请问怎么导出才可以保持原XML编码和格式不变？

Moneky

smileoa 发表于 2011-12-21 19:14
是其它软件生成的，请问怎么导出才可以保持原XML编码和格式不变？

VBA没有问题，肯定可以

tonychris

1.自定义的xml格式，用excel打开编辑保存后，必定会出现格式错乱
2.可以用adodb.stream读文件，然后编辑，再写回去就行了
3.用domdocument直接操作xml文件

Moneky

写了个例子，如果楼主的所有xml都是1楼附件中的格式的话，应该可以顺利导入导出，目前还不能支持在表格中添加列的操作，不过要支持也是很容易的事情了。从来些没有用过xml，现学现卖，参看了http://www.yesky.com/20021016/1635180_2.shtml 的教程。代码没有什么优化，其中一个过程直接搬的教程中现成的代码，谢谢！

1. Sub testLoad()
   
2.     Dim a As New DOMDocument
   
3.     Dim sht As Worksheet
   
4.     Dim sName As String, k As Long
   
5.     a.Load Sheets("xml").[a2].Text
   
6.     Dim b As IXMLDOMNode
   
7.     Set b = a.SelectSingleNode(".//BODY")
   
8.     k = 2
   
9.    
   
10.     sName = b.ChildNodes.Item(0).BaseName '取表名
    
11.     Set sht = ThisWorkbook.Worksheets.Add '添加表
    
12.     sht.Name = sName '改表名
    
13.     Sheets("xml").[a3] = sName '保存表名，后面再保存xml时需要用到
    
14.    
    
15.     '写表头
    
16.     sht.Cells(1, 1) = b.ChildNodes.Item(0).ChildNodes.Item(0).ChildNodes.Item(0).BaseName
    
17.     sht.Cells(1, 2) = b.ChildNodes.Item(0).ChildNodes.Item(0).ChildNodes.Item(1).BaseName
    
18.     sht.Cells(1, 3) = b.ChildNodes.Item(0).ChildNodes.Item(0).ChildNodes.Item(2).BaseName
    
19.     '加载数据
    
20.     For i = 0 To b.FirstChild.ChildNodes.Length - 1
    
21.         sht.Cells(k + i, 1) = b.ChildNodes.Item(0).ChildNodes.Item(i).ChildNodes.Item(0).nodeTypedValue
    
22.         sht.Cells(k + i, 2) = b.ChildNodes.Item(0).ChildNodes.Item(i).ChildNodes.Item(1).nodeTypedValue
    
23.         sht.Cells(k + i, 3) = b.ChildNodes.Item(0).ChildNodes.Item(i).ChildNodes.Item(2).nodeTypedValue
    
24.     Next
    
25.    
    
26.     '重复上面的事情
    
27.     sName = b.ChildNodes(2).BaseName
    
28.     Set sht = ThisWorkbook.Worksheets.Add
    
29.     sht.Name = sName
    
30.     Sheets("xml").[a4] = sName
    
31.    
    
32.     sht.Cells(1, 1) = b.ChildNodes.Item(2).ChildNodes.Item(0).ChildNodes.Item(0).BaseName
    
33.     sht.Cells(1, 2) = b.ChildNodes.Item(2).ChildNodes.Item(0).ChildNodes.Item(1).BaseName
    
34.     sht.Cells(1, 3) = b.ChildNodes.Item(2).ChildNodes.Item(0).ChildNodes.Item(2).BaseName
    
35.     For i = 0 To b.ChildNodes(2).ChildNodes.Length - 1
    
36.         sht.Cells(k + i, 1) = b.ChildNodes.Item(2).ChildNodes.Item(i).ChildNodes.Item(0).nodeTypedValue
    
37.         sht.Cells(k + i, 2) = b.ChildNodes.Item(2).ChildNodes.Item(i).ChildNodes.Item(1).nodeTypedValue
    
38.         sht.Cells(k + i, 3) = b.ChildNodes.Item(2).ChildNodes.Item(i).ChildNodes.Item(2).nodeTypedValue
    
39.     Next
    
40. End Sub
    
41. Sub CreateNode(ByVal indent As Integer, ByVal parent As IXMLDOMNode, ByVal node_name As String, ByVal node_value As String)
    
42. Dim new_node As IXMLDOMNode
    
43. ' Indent.
    
44. parent.appendChild parent.OwnerDocument.createTextNode(String(indent, Chr(9)))
    
45. ' Create the new node.
    
46. Set new_node = parent.OwnerDocument.createElement(node_name)
    
47. ' Set the node's text value.
    
48. new_node.Text = node_value
    
49. ' Add the node to the parent.
    
50. parent.appendChild new_node
    
51. ' Add a new line.
    
52. parent.appendChild parent.OwnerDocument.createTextNode(vbCrLf)
    
53. End Sub
    
54. Sub testSave()
    
55.     Dim a As New DOMDocument
    
56.     Dim b As IXMLDOMNode
    
57.     Dim c As IXMLDOMNode
    
58.     Dim sht As Worksheet
    
59.    
    
60.     a.Load Sheets("xml").[a2].Text '载入xml数据
    
61.     Set b = a.SelectSingleNode(".//BODY") '获取BODY节点数据
    
62.    
    
63.     For Each c In b.ChildNodes(0).ChildNodes '移除原有的所有Node
    
64.         b.ChildNodes(0).RemoveChild c
    
65.     Next
    
66.     For Each c In b.ChildNodes(2).ChildNodes
    
67.         b.ChildNodes(2).RemoveChild c
    
68.     Next
    
69.    
    
70.     Set sht = Sheets(Sheets("xml").[a3].Text)
    
71.     For i = 2 To sht.[a65536].End(xlUp).Row
    
72.         Set c = a.createElement("ITEM")
    
73.         c.appendChild a.createTextNode(vbCrLf) '添加回车换行符
    
74.         b.ChildNodes(0).appendChild c
    
75.         CreateNode 4, c, sht.[a1].Text, sht.Cells(i, 1)  '添加数据,缩进4个tab
    
76.         CreateNode 4, c, sht.[b1].Text, sht.Cells(i, 2)
    
77.         CreateNode 4, c, sht.[c1].Text, sht.Cells(i, 3)
    
78.         b.ChildNodes(0).LastChild.appendChild a.createTextNode(String(3, Chr(9))) '添加3个tab,缩进
    
79.         b.ChildNodes(0).appendChild a.createTextNode(vbCrLf & String(3, Chr(9))) '换行与缩进3个tab，为下一次添加作准备
    
80.     Next
    
81.     Set c = a.SelectSingleNode(".//" & Sheets("xml").[a3].Text) '修改表格的COUNT属性
    
82.     c.Attributes(0).Text = CStr(i - 2)
    
83.    
    
84.     Set sht = Sheets(Sheets("xml").[a4].Text)
    
85.     For i = 2 To sht.[a65536].End(xlUp).Row
    
86.         Set c = a.createElement("ITEM")
    
87.         c.appendChild a.createTextNode(vbCrLf)
    
88.         b.ChildNodes(2).appendChild c
    
89.         CreateNode 4, c, sht.[a1].Text, sht.Cells(i, 1)
    
90.         CreateNode 4, c, sht.[b1].Text, sht.Cells(i, 2)
    
91.         CreateNode 4, c, sht.[c1].Text, sht.Cells(i, 3)
    
92.         b.ChildNodes(2).LastChild.appendChild a.createTextNode(String(3, Chr(9)))
    
93.         b.ChildNodes(2).appendChild a.createTextNode(vbCrLf & String(3, Chr(9)))
    
94.     Next
    
95.     Set c = a.SelectSingleNode(".//" & Sheets("xml").[a4].Text) '修改表格的COUNT属性
    
96.     c.Attributes(0).Text = CStr(i - 2)
    
97. 
    
98.     Set c = a.SelectSingleNode(".//TBRQ") '修改文件修改日期
    
99.     c.Text = Format(Date, "yyyy-mm-dd")
    
100.    
     
101.     a.Save Sheets("xml").[a5].Text '保存xml文件
     
102. End Sub
     

复制代码

代码需要引用  Microsfot XML，3.0

237708857

收藏学习，谢谢！