Excel导出到XML的问题

Question

我想用VB中将Excel导出到XML文件中，怎么做？最好有示例或源码问题解决立刻结贴

Answer 1

Sub marco1()
       ActiveWorkbook.SaveAs Filename:="c:\a.xml", FileFormat:=xlXMLSpreadsheet
End Sub

Answer 2

ActiveWorkbook是什么类型的？？

Answer 3

加入microsoft excel object library 的引用
再
dim excelApp as excel.application
set excelApp= new excel.application
excelApp.open fileName这时候
activeWorkBook 就可以用了
activeWorkBook指的是 当前打开的excel文件！

Answer 4

先用 ADO打開Excel,再用Save方法保存為XML
Dim Cn as ADODB.Connection
Dim Rs as ADODB.RecordSetSet Cn=new adodb.connection
 cn.open "Driver={MicroSoft Excel Driver (*.xls)};DBQ=D:\測試.xls"
 Rs.Open "Select * From [Sheet1$]"
 Rs.Save "D:\測試.xml",adPersistXML 
 Rs.CLose
 Cn.close

Answer 5

注意 Sheet1$中那個美元符不能少