有沒有什麼工具可以批量匯出excel標籤到csv

Question

我有 Excel 2010。

發現這個：批量 XLS 到 CSV 轉換器

但我實際上需要將所有 Excel 工作表匯出為單獨的 CSV 檔案。不確定是否可以這樣工作。另外，如果我要使用上述方法，我該如何實際使用 VB 腳本呢？ （不熟悉程式設計）

Answer 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。