如何用VBScript替换CSV文件P列中的指定字符？

看起来你的替换操作没生效，大概率是因为代码里缺少关键的列定位逻辑、替换参数设置不对，或者On Error Resume Next掩盖了潜在错误。我帮你整理了修正后的代码，附上详细说明：

修正后的完整可运行代码 #

' 先注释掉错误忽略，方便排查问题（调试完成后可恢复）
' On Error Resume Next 

Const xlCSV = 6
Start_Time = Timer

' 创建Excel对象并设置后台运行
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False ' 关闭保存确认弹窗

' 替换为你的CSV文件实际路径
csvFilePath = "C:\Example\YourFile.csv"
Set objWorkbook = objExcel.Workbooks.Open(csvFilePath)
Set objWorksheet = objWorkbook.Worksheets(1) ' 选中CSV的第一个工作表

' 定位P列（Excel中A是第1列，P对应第16列）
Set targetColumn = objWorksheet.Columns(16)

' 执行查找替换：把"; "替换为"||| "
' 参数说明：
' LookAt:=2 对应xlPart，匹配单元格内的部分文本（而非整个单元格）
' MatchCase:=False 不区分大小写（按需调整）
targetColumn.Replace _
    What:="; ", _
    Replacement:="||| ", _
    LookAt:=2, _
    MatchCase:=False

' 保存修改并清理资源
objWorkbook.SaveAs csvFilePath, xlCSV
objWorkbook.Close
objExcel.Quit

Set targetColumn = Nothing
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

WScript.Echo "替换完成！耗时：" & Round(Timer - Start_Time, 2) & " 秒"

关键修正点解析 #

1. 移除错误忽略（调试阶段）：On Error Resume Next会隐藏文件找不到、列定位失败这类错误，先注释掉它，你就能看到具体报错信息，快速定位问题。
2. 明确目标列：直接用Columns(16)定位P列，避免因工作表选中错误导致替换操作打空。
3. 正确设置替换参数：LookAt:=2确保替换单元格内所有匹配的; ，而不是仅当单元格内容完全等于; 时才替换——这是很多替换失败的核心原因。
4. 静默运行配置：Visible=False让Excel在后台执行，不会弹出窗口干扰；DisplayAlerts=False自动跳过保存确认，让脚本全程自动化。

额外注意事项 #

如果你的CSV文件使用非默认分隔符（比如分号），打开时需要额外指定分隔规则，示例代码如下：

' 打开CSV时指定分隔符为分号
Set objWorkbook = objExcel.Workbooks.Open(csvFilePath, , , 6) ' 6 = xlDelimited
objWorksheet.Columns.TextToColumns _
    Destination:=objWorksheet.Range("A1"), _
    DataType:=xlDelimited, _
    Semicolon:=True ' 对应分号分隔的CSV

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