自己改的一个批量转换Xls到Xlsx文件的bat批处理文件

因为有个需要，要大量转换xls为xlsx，用其他软件编写感觉很麻烦，为什么不直接用wps或者office自己的另存为功能呢？上网搜索一番未找到现成的bat批处理，但找到一个xlsx转csv的，拿来改一改就好了。网上一些相同效果的代码还要先开启一个表格，然后启动VBA宏，实在是麻烦。这个bat批处理方便，只需把此批处理文件扔xls文件的相同目录下运行就好，也不用开启啥宏，这样不支持宏功能的wps个人版也可以用。

将分割线下方的文本复制进一个txt文件，然后修改文件名后缀为.bat即可。自动转换bat文件所在目录下的全部xls文件。

资源备忘：https://docs.microsoft.com/zh-cn/office/vba/api/excel.xlfileformat

这个链接可以查到各种另存为的格式要求。如果有另存为其他格式的要求，拿这个bat再改一改就好了。

需要在Windows系统下运行此bat脚本，要求对应电脑上安装有WPS或者微软的office。

——————————————以下为代码，复制进bat文件即可——————————————

@echo off & title 批量转换 Xls 到 Xlsx 文件  基于 依梦琴瑶 的 “批量转换 Xlsx 到 Csv 文件 ”修改
call :MakeVBS "%~0"
for /r %%a in (*.xls) do (
    cls
    echo 正在转换"%%~a"
    Xls2Xlsx.vbs "%%~a"
)
cls&echo 转换完毕
del Xls2Xlsx.vbs
pause
exit
 
:MakeVBS
for /f "tokens=1 delims=[]" %%a in ('find /n "::Xls2Xlsx::" "%~1"') do set HH=%%~a
more +%HH% "%~1">Xls2Xlsx.vbs
goto :eof
 
::Xls2Xlsx::
const xlWorkbookDefault = 51
 
Set fso=CreateObject("Scripting.FileSystemObject")
XLS = WScript.Arguments(0)
XLSX = fso.GetFile(XLS).ParentFolder.Path & "\" & fso.GetBaseName(XLS) & ".xlsx"
 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(XLS)
objExcel.DisplayAlerts = FALSE
objExcel.Visible = TRUE
 
Set objWorksheet = objWorkbook.Worksheets("Sheet1")
objWorksheet.SaveAs XLSX, xlWorkbookDefault
rem objWorksheet.ActiveWorkBook.Saved = True  我的电脑上WPS用这句报错，反正不需要保存，直接PASS
 
objExcel.Quit