csv - 使用 VBScript 将 xls 转换为 csv 并用分号分隔

Question

我有一个 VBScript 代码片段，可将 xls 和 xlsx 文件转换为 csv 文件。但是，我希望每个单元格用分号而不是逗号分隔。在我的计算机上，列表分隔符设置为分号而不是逗号，因此当我打开 Excel 窗口并另存为 csv 时，它会用分号分隔。但是，我的 VBScript 生成一个用逗号分隔的 csv 文件。我在网上找到了代码片段，因为我不太了解 VBScript(我主要是一名 Java 程序员)。如何更改代码片段以用分号而不是逗号分隔 csv 文件？

if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit
WScript.Echo "Done"

Answer 1

您可以保留原来的脚本，只需要给出一个参数来指示必须应用本地设置。这会用 ; 保存我的 CSV。分隔符

if WScript.Arguments.Count < 2 Then 
  WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv" 
  Wscript.Quit 
End If 
Dim oExcel 
Set oExcel = CreateObject("Excel.Application") 
oExcel.DisplayAlerts = FALSE 'to avoid prompts
Dim oBook, local
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
local = true 
call oBook.SaveAs(WScript.Arguments.Item(1), 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, local) 'this changed
oBook.Close False 
oExcel.Quit 
WScript.Echo "Done"