全てのExcelシートをCSV出力するマクロ

// 全てのExcelシートをCSV出力するマクロ
// B2セルにCSV出力させたいExcelファイルのフルパスを入れて、マクロ実行

// (塩)

Sub exportCSV()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.SaveAs ActiveWorkbook.Path & "\" & ws.Name & ".csv", xlCSV
Next ws
End Sub


Sub main()

Application.ScreenUpdating = False

'ファイルを開く
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False '「ツール」「オプション」「編集」の「リンクの自動更新前にメッセージを表示する」をOFFにする
Workbooks.Open Filename:=Cells(2, 2).Value, _
UpdateLinks:=0, _
ReadOnly:=True
Application.AskToUpdateLinks = True
Application.DisplayAlerts = True

Call exportCSV

'ファイルを閉じる
ActiveWorkbook.Close

Application.ScreenUpdating = True

End Sub


moniswitch
　　今お使いの離床センサーがそのまま使える！
　　離床センサーのスイッチ入れ忘れ事故を防止するスマートスイッチ

monipet
　　動物病院の犬猫の見守りをサポート
　　病院を離れる夜間でも安心

ASSE/CORPA
　　センサー、IoT、ビッグデータを活用して新たな価値を創造
　　「できたらいいな」を「できる」に

OSGi対応 ECHONET Lite ミドルウェア
　　短納期HEMS開発をサポート！

GuruPlug
　　カードサイズ スマートサーバ

株式会社ジェイエスピー
　　横浜に拠点を置くソフトウェア開発・システム開発・
　　製品開発(monipet)、それに農業も手がけるIT企業