VBS脚本，用于替换excel文件中的逗号，然后以csv格式保存文件

Question

我需要替换大量Excel工作簿中的逗号，然后将它们另存为csv，我有以下代码，但不知道为什么它不起作用：

csv_format = 6

Set objFSO = CreateObject("Scripting.FileSystemObject")

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0))
dest_file = objFSO.GetAbsolutePathName(WScript.Arguments.Item(1))

Dim oExcel

Set oExcel = CreateObject("Excel.Application")

Dim oBook

Set oBook = oExcel.Workbooks.Open(src_file)

Dim oBookRange
Set oBookRange = oBook.ActiveWorkbook.Sheets(1)

oBookRange.Replace What:=",", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False

oBook.SaveAs dest_file, csv_format

oBook.Close False
oExcel.Quit

这些行似乎失败了：

set oBookRange = oBook.ActiveWorkbook.Sheets(1)

oBookRange.Replace What:=",", Replacement:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ReplaceFormat:=False

Answer 1

更换：

Set oBookRange = oBook.ActiveWorkbook.Sheets(1)

与：

Set oBookRange = oBook.Sheets(1).Cells

可能还有其他问题。