如何在批处理文件中添加VBScript步骤实现XLS转CSV并重命名

阿华AIGC实验室

2026-5-26

解决方案：批量转换特定格式的XLS文件到CSV

我来帮你搞定这个批量转换的批处理脚本问题！你的核心需求是把CDC [名称] [日期戳].xls格式的文件转成[名称].csv，原来的脚本缺少完整的转换逻辑，而且提取名称的方式可以更高效。下面给你两种实用的方案：

方案一：依赖Excel的批处理+内置VBS脚本（适合有Excel的环境）

这个方案利用Excel的自动化能力完成格式转换，不需要额外安装工具，而且脚本会自动生成临时转换代码，不用单独创建文件。

完整可运行脚本

@ECHO OFF
setlocal enableextensions enabledelayedexpansion

:: 自动生成临时VBS转换脚本（无需手动创建）
echo if WScript.Arguments.Count ^< 2 then > "%temp%\xls2csv.vbs"
echo     WScript.Echo "参数错误，请指定输入和输出文件" >> "%temp%\xls2csv.vbs"
echo     WScript.Quit 1 >> "%temp%\xls2csv.vbs"
echo end if >> "%temp%\xls2csv.vbs"
echo inputFile = WScript.Arguments(0) >> "%temp%\xls2csv.vbs"
echo outputFile = WScript.Arguments(1) >> "%temp%\xls2csv.vbs"
echo Set objExcel = CreateObject("Excel.Application") >> "%temp%\xls2csv.vbs"
echo objExcel.Visible = False >> "%temp%\xls2csv.vbs"
echo objExcel.DisplayAlerts = False >> "%temp%\xls2csv.vbs"
echo Set objWorkbook = objExcel.Workbooks.Open(inputFile) >> "%temp%\xls2csv.vbs"
echo objWorkbook.SaveAs outputFile, 6 ' 6是Excel官方定义的CSV格式代码 >> "%temp%\xls2csv.vbs"
echo objWorkbook.Close False >> "%temp%\xls2csv.vbs"
echo objExcel.Quit >> "%temp%\xls2csv.vbs"
echo Set objWorkbook = Nothing >> "%temp%\xls2csv.vbs"
echo Set objExcel = Nothing >> "%temp%\xls2csv.vbs"

:: 遍历所有CDC开头的XLS文件
for %%F in ("CDC *.xls") do (
    :: 精准提取文件名中的核心名称（比如aaa/bbb/ccc）
    for /f "tokens=2" %%G in ("%%~nF") do (
        set "outputName=%%G.csv"
        echo 正在转换: %%F → !outputName!
        
        :: 调用临时VBS脚本执行转换
        cscript //nologo "%temp%\xls2csv.vbs" "%%F" "!outputName!"
    )
)

:: 自动清理临时VBS文件
del "%temp%\xls2csv.vbs"

echo 所有文件转换完成！
pause

脚本关键点说明

自动提取名称：通过for /f "tokens=2"直接从文件名中抓取第二个空格分隔的部分，不管日期戳怎么变化，都能准确拿到aaa/bbb/ccc
静默转换：VBS代码里设置Excel后台运行，不会弹出窗口或提示框，避免干扰
格式可靠：用Excel官方的CSV格式代码6，确保转换后的文件是标准CSV格式

方案二：使用LibreOffice（无Excel环境适用）

如果你的电脑没装Excel，可以用LibreOffice的命令行工具来转换，需要先安装LibreOffice（免费开源）。

完整可运行脚本

@ECHO OFF
setlocal enableextensions enabledelayedexpansion

:: 替换为你的LibreOffice安装路径，默认路径如下
set "libreOfficeExe=C:\Program Files\LibreOffice\program\soffice.exe"

:: 遍历所有CDC开头的XLS文件
for %%F in ("CDC *.xls") do (
    :: 提取核心名称
    for /f "tokens=2" %%G in ("%%~nF") do (
        set "outputName=%%G.csv"
        echo 正在转换: %%F → !outputName!
        
        :: 用LibreOffice无头模式后台转换为CSV
        "%libreOfficeExe%" --headless --convert-to csv "%%F" --outdir .
        
        :: 将转换后的默认文件名重命名为目标名称
        ren "%%~nF.csv" "!outputName!"
    )
)

echo 所有文件转换完成！
pause