Konwertuj plik xml na plik xlsx za pomocą VBA

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

Public Sub ConvertXmlToXlsx()Application.DisplayAlerts = FalseDim objFSO As Object

Dim objFolder As Object

Dim objFile As ObjectxmlFolder = "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