☰

ExcelのタブをCSVに一括エクスポートできるツールはありますか？

tag-icon • tag-icon windows-7 microsoft-excel microsoft-excel-2010
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。

関連情報