有没有什么工具可以让你批量将 excel 标签导出到 csv

有没有什么工具可以让你批量将 excel 标签导出到 csv

我有 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

相关内容