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"
oExcel.quit
WScript.Echo "Excel Quit complete"
Set oBook = Nothing
Set oExcel = Nothing
Set objFSO = Nothing
Auf dieser Seite können Sie das Online-Video XML to Excel (XLSX) Visual Basic Script mit der Dauer stunde minuten sekunde in guter Qualität ansehen, das der Benutzer Roland Kinsman 12 Juli 2021 hochgeladen hat, den Link mit Freunden und Bekannten teilen, dieses Video wurde auf Youtube bereits 1,211 Mal angesehen und es wurde von 7 den Zuschauern gefallen. Viel Spaß beim Betrachtenden Zuschauern gefallen!
