使用VBA将xml文件转换为xlsx文件

我怎样才能将xml文件转换为xlsx ？

存在于文件夹中的xml文件，我想将xlsx文件保存到其他文件夹。

例：

现有文件： C:\Users\John\Documents\xml\data.xml
转换为： C:\Users\John\Documents\xlsx\data.xlsx

Answer 1

这是你想要做什么？

 Option Explicit Public Sub XML_To_xlsx() Dim FilePath As String Dim Book As Workbook ' Load XML Data to New Workbook FilePath = "C:\Users\John\Documents\xml\data.xml" Set Book = Workbooks.OpenXML(FilePath) 'Copy to active Worksheet Book.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet1").Range("A1") 'Close New Workbook Book.Close False End Sub 

Answer 2

我做的。

 Public Sub ConvertXmlToXlsx() Application.DisplayAlerts = False Dim objFSO As Object Dim objFolder As Object Dim objFile As Object xmlFolder = "C:\Users\John\Documents\xml\" convFolder = "C:\Users\John\Documents\xls\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(xmlFolder) For Each objFile In objFolder.Files If UCase(Right(objFile.Name, Len(XML))) = UCase(XML) Then NewFileName = convFolder & objFile.Name & "_conv.xlsx" Set ConvertThis = Workbooks.Open(objFolder & "\" & objFile.Name) ConvertThis.SaveAs Filename:=NewFileName, FileFormat:= _ xlOpenXMLWorkbook ConvertThis.Close End If Next objFile 

结束小组