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

Question

如何将xml文件转换为xlsx？

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

例子：

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

Answer 1

我做到了。

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 

末次

Answer 2

这是你的努力呢？

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