How to convert Excel to XLS using vbscript | convert xlsx to xls

How to convert Excel to XLS using vbscript | convert xlsx to xls

Excel Format:

xlExcel2 16 Excel version 2.0 (1987) *.xls
xlExcel2FarEast 27 Excel version 2.0 far east (1987) *.xls
xlExcel3 29 Excel version 3.0 (1990) *.xls
xlExcel4 33 Excel version 4.0 (1992) *.xls
xlExcel4Workbook 35 Excel version 4.0. Workbook format (1992) *.xlw
xlExcel5 39 Excel version 5.0 (1994) *.xls
xlExcel7 39 Excel 95 (version 7.0) *.xls
xlExcel8 56 Excel 97-2003 Workbook *.xls
xlExcel9795 43 Excel version 95 and 97 *.xls

Microsoft Document :

Code :

For Format 56:

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
Dim excel
set excel = CreateObject("Excel.Application")
Dim workBook
set workBook = excel.WorkBooks.Open(file)
workBook.SaveAs pathin, 56
workBook.Close
excel.Quit
end if
next

For format 39:

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
Dim excel
set excel = CreateObject("Excel.Application")
Dim workBook
set workBook = excel.WorkBooks.Open(file)
workBook.SaveAs pathin, 39
workBook.Close
excel.Quit
end if
next

Chapters:

0:00 - Introduction to convert from xlsx to xls
0:42 - Writing the program with different formats of xls with execution
3:38 - End Tags and subscription to channel

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

My second Channel:

Next Steps :

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

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

#xlsxtoxls
#exceltoxls
#vbscript