csv出力(vbaツール)
エクセルで事務を楽にするプログラマーmoimoiです。
今回は、エクセルのシートをcsvに出力するコードをご紹介します。
エクセルで作った内容をcsvやtxtに出力できると他のサービスやアプリにインポートができるようになり、自動化できる幅が広がります。
【使い方】
1.使い方シートで変換したい拡張子を選択
2.出力用に変換したい内容をコピペ
3.ボタンをクリック
4.ツールと同じフォルダに、指定した拡張子のファイルが保存されます
【コード】
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
【ダウンロード】
すぐに使いたい方は購入後ダウンロードをどうぞ
ここから先は
0字
/
1ファイル
¥ 100
この記事が参加している募集
よろしければ、サポートお願いします! 頂いたサポートは、noteの運営費や新たなコード作成の開発費に充てさせていただきます。