Dzwebs.Net

撰写电脑技术杂文十余年

VBA将Excel导出为XML

Admin | 2012-2-4 9:51:01 | 被阅次数 | 8880

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  以下代码的功能,是配合select,将Excel导出为XML文件

  Const stSQL As String = "SELECT * FROM [Report]"
  Dim stCon As String     
  stCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & ThisWorkbook.FullName & ";" & _
  "Extended Properties=""Excel 8.0;HDR=Yes"";" 
    
  Dim rst As New ADODB.Recordset

  Dim str As New ADODB.Stream 
    
  With rst 

         .CursorLocation = adUseClient
         .Open stSQL, stCon, adOpenStatic, adLockReadOnly, adCmdText
         .Save str, adPersistXML
         .Close

   With str
             .SaveToFile "C:\dzwebs.xml", adSaveCreateOverWrite
             .Close
   End With

  End With 
    
  Set str = Nothing
  Set rst = Nothing

  注意,要使用如上的代码,需要添加MS ADO Library引用。


该杂文来自: Excel杂文

上一篇:Excel Vba读取XML

下一篇:excel编排考场,前后不能有同班同学

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计