求教！有没有简单的代码，达到XML里的效果？

黑子OOO

求教！有没有更简洁的方式将汇总表里的数据按XML的格式全部导出来？
按照我里面的代码相当费时费力！
求指教啊~~~~~~~~~

黑子OOO

跪求啊~没人么~{:soso_e154:}

lipton

正在学习XML,vsto实现相同格式更简单一点。

使用ADO的例子，<s:data>区域和你的要求很接近，元素名不相同。
代码：

1. Sub xmlDemo()
   
2.     '引用ADO 2.8
   
3.     Dim strSQL As String
   
4.     Dim stCon As String
   
5.     Dim rst As New ADODB.Recordset
   
6.     Dim str As New ADODB.Stream
   
7.     Dim cnn As New ADODB.Connection
   
8.    
   
9.     stCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;Macro;IMEX=1;HDR=YES';"
   
10.     cnn.Open stCon
    
11.    
    
12.    
    
13.     strSQL = "SELECT * FROM [汇总$a2:p200]"
    
14.     With rst
    
15.         .CursorLocation = adUseClient
    
16.         .Open strSQL, cnn, adOpenStatic, adLockReadOnly, adCmdText
    
17.         .Save str, adPersistXML
    
18.         .Close
    
19.         With str
    
20.             .SaveToFile "d:\temp\Report.xml", adSaveCreateOverWrite
    
21.             .Close
    
22.         End With
    
23.     End With
    
24.     cnn.Close
    
25.    
    
26.     Set str = Nothing
    
27.     Set rst = Nothing
    
28. End Sub
    

复制代码

KCFONG

see if help you

黑子OOO

KCFONG 发表于 2013-3-28 13:36
see if help you

版主大大！~谢谢给我回复！！不过我很抱歉！需求没说明白！我是想把求教一个更简洁的方式把模板1里面的代码优化！导出来的格式不变！

我现在的代码太死板，是通过手动将每个mapID分段的！

KCFONG

no understand,
my macro can get your data ???
why you insist to use your macro???

lipton

附件修改了代码，增加了一个判断循环起始和结束地址的判断。