WEB开发网
开发学院软件教学办公软件Excel VBA将Excel导出为XML 阅读

VBA将Excel导出为XML

 2012-06-03 09:04:30 来源:开发学院   
核心提示:以下代码的功能,是配合select,VBA将Excel导出为XML,将Excel导出为XML文件,Const stSQL As String = "SELECT * FROM [Report]"Dim stCon As String stCon = "Provider=Microsoft

以下代码的功能,是配合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引用。

Tags:VBA Excel 导出

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接