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
Sur cette page du site, vous pouvez voir la vidéo en ligne XML to Excel (XLSX) Visual Basic Script durée heure minute seconde en bonne qualité , qui a été Téléchargé par l'utilisateur Roland Kinsman 12 juillet 2021, Partagez le lien avec vos amis et connaissances, sur youtube cette vidéo a déjà été regardée 1,211 fois et il a aimé 7 téléspectateurs. Bon visionnage!
