VBS脚本用于replaceExcel文件中的逗号，然后以CSV格式保存文件

我需要在大量的Excel工作簿中replace逗号，然后将它们保存为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 

可能还有其他问题。