xls批量文件转换为xlsx vbs脚本

工作有大量office 2003版本的xls文件，为了节省空间及其他一些原因，找了网上现有的脚本修改了下，做了个将脚本目录下所有文件批量转换为office 2007 xlsx版本的脚本。

xls_2_xlsx.vbs

Dim array1(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Dim source(100) '①100表示该文件夹最多的文件数，如果文件数大于100请自行修改
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))) '②此处表示xls所在的文件夹，请根据需要自行修改
Set fc = f.Files
i = 0
For Each f1 In fc
    array1(i) = f1.Name
    Ext = fs.GetExtensionName(array1(i))
    Ext = LCase(Ext)
    If Ext = "xls" Then '③此处表示转换类型
        source(i) = f & "\" & array1(i)
        Set ExcelApp = CreateObject("Excel.Application")
        Set ExcelXls = ExcelApp.Workbooks.Open(source(i))
        ExcelXls.SaveAs source(i) & "x",51
        ExcelXls.Close
        Set ExcelXls = Nothing
        ExcelApp.Quit
        Set ExcelApp = Nothing
    End If
    i = i + 1
Next

新建一个文本文件，将以上代码保存为xls_2_xlsx.vbs，执行这个文件就可以把这个文件所在目录的全部xls文件（默认最多100个xls文件，如果更多修改下代码即可）转换为xlsx。