嘿，我来帮你搞定这两个批处理相关的问题，一步步来：

批处理里的for /f命令默认会跳过空行，刚好可以利用这个特性生成无空行的新文件。这里给你一个完整的可复用脚本，还能处理带空格的文件名：

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

:: 调用移除空行的函数，传入目标CSV文件路径
call :StripBlankLines "integration.csv"
goto :eof

:StripBlankLines
:: 提取输入文件名，生成带后缀的输出文件名（比如原文件是a.csv，输出就是a_no_empty.csv）
set "InputFile=%~1"
set "OutputFile=%InputFile:.csv=_no_empty.csv%"

:: 如果输出文件已存在，先删除旧文件
if exist "%OutputFile%" del "%OutputFile%"

:: 遍历输入文件的每一行，跳过空行写入输出文件
:: "usebackq" 处理带空格的文件名；"delims=" 保留整行内容，避免逗号截断字段
for /f "usebackq delims=" %%B in ("%InputFile%") do (
    echo %%B>>"%OutputFile%"
)
echo 空行移除完成！输出文件：%OutputFile%
goto :eof

你的思路没问题——用VBS调用Excel的COM对象后台转换，再结合批处理收尾。不过你的VBS代码不完整，我帮你完善整个流程：

第一步：创建转换用的VBS脚本 #

新建一个xlsm_to_csv.vbs文件，内容如下：

' 接收命令行参数：第一个是输入xlsm路径，第二个是输出csv路径
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ' 完全后台运行，不显示Excel窗口
objExcel.DisplayAlerts = False ' 禁用保存时的确认提示框

Set objWorkbook = objExcel.Workbooks.Open(WScript.Arguments(0))
' 6是Excel中CSV格式的文件代码，直接保存为CSV
objWorkbook.SaveAs WScript.Arguments(1), 6
objWorkbook.Close
objExcel.Quit
' 释放对象，避免内存残留
Set objWorkbook = Nothing
Set objExcel = Nothing

第二步：整合转换、去空行、杀进程的批处理 #

新建一个convert_and_clean.bat文件，内容如下：

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

:: 定义文件路径，你可以根据实际情况修改
set "XLSM_SOURCE=integration.xlsm"
set "TEMP_CSV=integration_temp.csv"
set "FINAL_CSV=integration_er.csv"

:: 调用VBS后台转换xlsm到csv
cscript //nologo xlsm_to_csv.vbs "%XLSM_SOURCE%" "%TEMP_CSV%"

:: 移除临时CSV中的空行，生成最终文件
call :StripBlankLines "%TEMP_CSV%" "%FINAL_CSV%"

:: 杀掉后台残留的Excel进程（2>NUL 避免无进程时报错）
Taskkill /IM EXCEL.EXE /F 2>NUL

echo 全部处理完成！最终文件：%FINAL_CSV%
:: 删除临时文件
del "%TEMP_CSV%"
goto :eof

:StripBlankLines
set "Input=%~1"
set "Output=%~2"
if exist "%Output%" del "%Output%"
for /f "usebackq delims=" %%B in ("%Input%") do (
    echo %%B>>"%Output%"
)
goto :eof

使用时把xlsm_to_csv.vbs和批处理文件放在同一个文件夹里，双击批处理就能自动完成转换+去空行的操作，全程不用手动打开Excel。

内容的提问来源于stack exchange，提问作者souza