How to convert Excel to XML using vbscript | convert xlsx to xml

How to convert Excel to XML using vbscript | convert xlsx to xml

Code:

set fso = CreateObject("Scripting.FileSystemObject")
currentDir = fso.GetAbsolutePathName(".")
set folder = fso.GetFolder(currentDir)

for each file in folder.Files
if fso.GetExtensionName(file) = "xlsx" Then
pathin = fso.BuildPath(currentDir,fso.GetBaseName(file)+".xml")
Dim excel
set excel = CreateObject("Excel.Application")
Dim workBook
set workBook = excel.WorkBooks.Open(file)
workBook.SaveAs pathin, 46
workBook.Close
excel.Quit
end if
next

Microsoft Document

Chapters:

0:00 - Introduction for xlsx to xml
0:58- Writing a program to convert xlsx to xml
2:08 - Execution of the program
3:10 - end tags and subscription to the channel

Donation Section:
Now you can Donate us via Paypal or Google Pay

My second Channel:

Next Steps :

---------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------------------
Must Watch Playlists

---------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------------------

#exceltoxml
#convertexceltoxml
#howtoconvertexceltoxml