XML to Excel (XLSX) Visual Basic Script

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Dim oExcel
Set oExcel = CreateObject("Excel.Application")

LoadOption = 2 ' Places the contents of the XML data file in an XML table
Dim oBook
Set oBook = oExcel.Workbooks.OpenXML(src_file, ,LoadOption)

xlsx_format = 51 ' Open XML Workbook
oBook.SaveAs dest_file,xlsx_format

oBook.Close False
WScript.Echo "Close complete"
WScript.Echo "Excel Quit complete"
Set oBook = Nothing
Set oExcel = Nothing
Set objFSO = Nothing

[rayoq]

Thanks so much for this script. Thanks for your contribution to the YouTube community.

[nikitapatil]

How to convert XLS to XML file by using script?