Brtdku

I found a VBScript in stackexchange which should batch convert a folder of XLS files to XLSX but have been unsuccessful implementing it as an actual .vbs file. Seems I only need to identify my path somewhere in here bit I can't figure out where.

Here is @revosftw's VBScript post from stackexchange:

./convert-xls-xlsx.vbs {path to folder containing .xls files}

convert-xls-xlsx.vbs:

Set args = WScript.Arguments

strPath = args(0)

strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(strPath)

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False

objExcel.DisplayAlerts = False

Set objFso = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFso.GetFolder(strPath)

For Each objFile In objFolder.Files

    fileName = objFile.Path

    If (objFso.GetExtensionName(objFile.Path) = "xls") Then

        Set objWorkbook = objExcel.Workbooks.Open(fileName)

        saveFileName = Replace(fileName,".xls",".xlsx")

        objWorkbook.SaveAs saveFileName,51

        objWorkbook.Close()

        objExcel.Application.DisplayAlerts =  True

    End If

Next

MsgBox "Finished conversion"

NOTE: Look out for spaces in the folder path, if your path has a space in between, put the path in quotes.

Assuming path to a folder full of xls files requiring conversion as "C:UsersDirectories with spacesDaily" I tried:

Set args = WScript.Arguments

strPath = args("C:UsersDirectories with spacesDaily")

'REST OF CODE UNCHANGED ...

and

Set args = WScript.Arguments

strPath = "C:UsersDirectories with spacesDaily"

'REST OF CODE UNCHANGED ...

and

./convert-xls-xlsx.vbs {"C:UsersDirectories with spacesDaily"}



Set args = WScript.Arguments

strPath = args(0)

'REST OF CODE UNCHANGED ...

Unfortunately every attempt has produced windows script host errors like:

line: 4

Char: 5

Error: Subscript out of range

Code: 800A0009

Source: Microsoft VBScript runtime error

Thanks @AnsgarWiechers - Your comment helped me figure out what I was doing wrong.

FIX AS FOLLOWS:

1. Save the .vbs file to C:WindowsSystem32convert-xls-xlsx.vbs


2. WindowsStart 'RUN' the VBScript with the following command:
   
   
   
   
   • cscript ./convert-xls-xlsx.vbs "C:UsersDirectories with spacesDaily"