我有 Excel 2010。
发现了这个:批量 XLS 到 CSV 转换器
但实际上我需要将所有 Excel 工作表导出为单独的 CSV 文件。不确定这样是否可行。此外,如果我使用上述方法,我该如何使用 VB 脚本?(不熟悉编程)
答案1
以下是您链接的帖子中的脚本的清理版本:
Option Explicit
Const xlXMLSpreadsheet = 46
Const xlCSV = 6
Dim xl, wb, ws
Dim args : Set args = WScript.Arguments
If args.Count <> 1 Then
WScript.Echo "Syntax: cscript " & WScript.ScriptName & " filename"
WScript.Quit(1)
End If
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open(args(0))
xl.DisplayAlerts = False
For Each ws In wb.Worksheets
ws.activate
wb.SaveAs CreateObject("Scripting.FileSystemObject").GetBaseName(args(0)) _
& "_" & Replace(ws.Name, " ", "_") & ".csv", xlCSV
Next
xl.DisplayAlerts = True
wb.Close False
xl.Quit
WScript.Quit
它应该会执行您想要的操作。您可以从命令提示符中像这样调用它:
cscript SCRIPT.vbs INPUT.xls
它创建输出文件INPUT_SHEETNAME.csv
。