今さらながらCSVを出力するExcelマクロ作ってみた。

はじめに

ExcelでCSVファイルを出力するのは面倒です。
まず、ファイルの保存形式を変えないといけない。加えて警告ダイアログや確認ダイアログが何度も表示されるので、うっとうしい。

そこでCSVファイルを出力するExcelマクロを作ってみました。ネット上にあるいくつかの記事を読んでみましたが、以下の記事がコードの行数も少なくて参考になりました。

Excel VBAでCSVファイルを作成してみる - NAVER まとめ

Excel VBAのプログラミングのツボとコツがゼッタイにわかる本―最初からそう教えてくれればいいのに!Excel2007/2003対応

posted with amazlet at 14.03.15

立山 秀利
秀和システム
売り上げランキング: 1,749

Amazon.co.jpで詳細を見る

前提条件

• A1セルには値が入っていること
• A列に値が入っているところまでを出力します。（A列の空白セルが最終行となります）

CSVファイルを出力Excelマクロ

Sub CSV出力()
    Dim csvFilePath As String
    Dim iCount As Long
    Dim jCount As Long
    Dim kCount As Long
    Dim maxRow As Long
    Dim maxCol As Long
    Dim fileNo As Integer
    Dim FileName As String
    
    ' ファイル名の取得（拡張子を除く）
    FileName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)
    ' CSVファイルパスの作成
    csvFilePath = ActiveWorkbook.Path & "\" & FileName & ".csv"
    ' 最終行
    maxRow = ActiveSheet.Range("A1").End(xlDown).Row
    ' 最終列
    maxCol = ActiveSheet.Range("A1").End(xlToRight).Column
    ' ファイル番号
    fileNo = FreeFile

    ' ファイル開く
    Open csvFilePath For Output As #fileNo

    ' 縦方向ループ（最終行まで）
    For iCount = 1 To maxRow
        ' 横方向ループ（最終列－１まで）
        For jCount = 1 To maxCol - 1
            ' ファイル出力（改行なし）
            Write #fileNo, Cells(iCount, jCount);

            ' ループカウンタをコピー
            kCount = jCount
        Next jCount
        ' 最終列をファイル出力（改行付き）
        Write #fileNo, Cells(iCount, kCount + 1)
    Next iCount

    ' ファイルを閉じる
    Close #fileNo
'
End Sub

使い方

１．Excelを起動し、開発メニューから「マクロの記録」をクリックします。

２．マクロ名に「CSV出力」と入力し、「OK」ボタンをクリックします。

３．「記録終了」をクリックして、マクロの記録を停止します。

４．「マクロ」ボタンをクリックします。

５．「編集」ボタンをクリックします。

６．VBAのエディタが起動したら、ソースコードを貼り付けて、保存します。

一度保存したら、マクロボタンから何度も実行することができます。

実行結果

関連記事