【事例で学ぶExcel VBA #5】CSVデータを書き出す

f:id:maekinblog:20220227181858j:plain
まえきんです！

このシリーズでは、私が普段実務で手作業の自動化ツールを作成する中で実装している

処理の一部をピックアップし、ブログ掲載用にカスタマイズしたものをご紹介しています。

全て私の実務ベースで使っているものなので、使いこなすことが出来れば、

必ずや手作業の自動化に一役買ってくれる内容ばかりと勝手に自負しています笑 😁

「本だけじゃなくてExcel VBAを実践的に勉強してみたい！」「ハードル高くて苦手だった

けどもう一度VBAを勉強してみたい！」「実務で役に立つVBAを学びたい！」そんな方々の

学習意欲向上の一助になればと思い、このシリーズを投稿しようと思いました。

私自身もこのシリーズの投稿を通じて、新しい知識の習得、習得した知識の棚卸しや

ブラッシュアップをしていきます😊一緒に楽しくスキルアップしていきましょう！！👍✨

👇さて、今回のテーマはコチラ

#5：CSVデータを書き出す

以前にご紹介した#1のマクロでは、CSVデータをエクセルシートに取り込むマクロの事例を

ご紹介しました。今回はその逆、エクセルシートからCSVデータを書き出すマクロを見て

いきましょう。#1の詳細について知りたい方は是非下記の記事もご覧下さい！
maekinblog.com

ツールの全体像

f:id:maekinblog:20220326203638p:plain

まずは任意のエクセルシートに、CSVを書き出すための一覧を作成しておきます。

本ツールのVBAコードは以下の通りです。

VBAコード ※パソコンでの閲覧推奨

Option Explicit
'===================================================
'ツール名：CSVデータ書込ツール（まえきんブログ掲載用にカスタマイズ）
'作成日：2022/03/26
'処理概要：CSVデータ書込
'付属機能：なし
'作成者：まえきん
'===================================================

'===================================================
'定数宣言
'===================================================
Const kakikomi As String = "CSV書込シート"

'===================================================
'関数名　：メイン関数（CSVデータ書込ボタン）
'処理内容：CSVデータ書込
'トリガー：CSVデータ書込ボタンを押下した際にコールされる
'引数　　：なし
'戻り値　：なし
'===================================================
Private Sub CommandButton1_Click()
     '----------
    '変数宣言
    '----------
    'CSV書き出し用変数宣言
    Dim filePath As String 'CSV出力先ファイルパス変数
    Dim i As Long
    Dim fileNo As Integer 'ファイル番号

    '----------
    '初期値設定（ツールと同じ階層にCSV出力）
    '----------
    filePath = ActiveWorkbook.Path & "\読者様へメッセージ.csv"
    
    'FreeFile関数で使用可能なファイル番号取得
    fileNo = FreeFile

    '----------
    'CSVデータ出力処理
    '----------
    'ファイルオープン（存在しない場合は自動生成）
    Open filePath For Output As #fileNo

    'データレコード書き込み
    For i = 1 To 5
        With Worksheets(kakikomi)
            Print #fileNo, .Cells(i, 1) & ","; .Cells(i, 2)
        End With
    Next i
    
    '書き込み用CSVファイルを閉じる
    Close #fileNo
    
    '----------
    '処理完了通知
    '----------
    MsgBox "CSVデータを作成しました！"
End Sub

VBAコード解説

'----------
'初期値設定（ツールと同じ階層にCSV出力）
'----------
まずは書き出し対象のCSVファイル名と書き出し先を指定する処理を記述します。

私はいつも「ActiveWorkbook.Path」を使用しています。

こうしておくと、どの階層にファイルを置いていてもマクロ実行時に現在地の

ファイルパスをきちんと判断して拾い、マクロブックと同階層に作成されるように

指定できるので大変重宝しています。次にFreeFile関数で使用可能なファイル番号を

取得しておきます。これはCSVファイルを書き出す時のお決まりの下準備になります。

'----------
'CSVデータ出力処理
'----------
さて、ここからは実際にCSVデータを書き出す処理を記述していきます。

①Openメソッド：CSVファイルオープン、②Printステートメント：CSV書き出し、

③Closeメソッド：CSVファイルクローズの手順を踏みます。

ちなみに、②のPrintステートメントにて、For文を使って1行ずつループで書き出しを

行うわけですが、今回のケースではMAX5行分のレコードを書き込むのでループの

終わりは「5」になります。もう少し汎用性を持たせる高度なマクロになってくると、

このループの終わりを動的に設定する必要も出てくることになるでしょう。

この応用版マクロのお話は、またいずれ😊

マクロ実行結果

処理完了通知
f:id:maekinblog:20220326205504p:plain
CSV保存 ※マクロブックと同じ階層に保存されている
f:id:maekinblog:20220326205547p:plain
CSVの中身
f:id:maekinblog:20220326205750p:plain