csv出力(vbaツール)

　エクセルで事務を楽にするプログラマーmoimoiです。
　今回は、エクセルのシートをcsvに出力するコードをご紹介します。
エクセルで作った内容をcsvやtxtに出力できると他のサービスやアプリにインポートができるようになり、自動化できる幅が広がります。

【使い方】

１．使い方シートで変換したい拡張子を選択

２．出力用に変換したい内容をコピペ

３．ボタンをクリック

４．ツールと同じフォルダに、指定した拡張子のファイルが保存されます

【コード】

Sub 出力()

Dim wb As Workbook
Set wb = ThisWorkbook
Dim 拡張子 As String
拡張子 = Range("C3")
Dim 定数 As String
定数 = Range("C4")
Dim データ名 As String
データ名 = Range("C5")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Worksheets("出力用").Activate
ThisWorkbook.Worksheets("出力用").Copy after:=Worksheets(Worksheets.Count)
ThisWorkbook.Worksheets(Worksheets.Count).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & データ名 & 拡張子, FileFormat:=定数
wb.Worksheets("出力用 (2)").Delete
ActiveWorkbook.Close Savechanges:=True
Worksheets("使い方").Activate

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

【ダウンロード】

すぐに使いたい方は購入後ダウンロードをどうぞ