ファイル操作Ⅱ（Print #）｜ExcelマクロVBA入門

最終更新日：2018-02-07

第118回.ファイル操作Ⅱ（Print #）

VBAでファイル（CSV等）を扱う時は、
最初に、ファイルを開き、
次に、読込書込みを行い、
最後に、ファイルを閉じます。

ファイルを書き込む時に、Print # ステートメントを使います。

Print # ステートメント

シーケンシャル出力モード (Output または Append) で開いたファイルにデータを書き込むファイル入出力ステートメントです。

Print #filenumber, [outputlist]

filenumber

必ず指定します。
任意のファイル番号を指定します。

outputlist

省略可能です。
出力する式や数式または文字列式を指定します。
[{Spc(n) | Tab[(n)]}] [expression] [charpos]

Spc(n)	出力するデータに n 個のスペースを挿入します。
Tab(n)	expression の出力位置を n 番目の桁位置に移動します。 Tab 関数の引数 n に何も指定しない場合は、出力位置は次の印字領域の先頭になります。
expression	出力する数式または文字列式を指定します。
charpos	次の文字の出力位置を指定します。セミコロン (;) を指定すると、次の文字は最後の文字の直後から出力されます。 Tab(n) 関数で出力位置の桁番号を指定できます。 Tab 関数の引数 n に何も指定しないと、出力位置は次の印字領域の先頭になります。引数 charpos を省略すると、次の文字は次の行の先頭から出力されます。

引数 outputlist を省略し引数 filenumber の後ろに区切り記号だけを指定すると、ファイルに空白行を出力します。

ブール型 (Boolean) のデータは、True または False という文字列で出力されます。

日付型 (Date) のデータは、コントロールパネルで設定した短い形式で書き込まれます。

使用例．


  
    
      Sub sample()

      　　Dim i As Long

      　　Dim FileNumber

      　　FileNumber = FreeFile

      　　Open "C:\TEST.txt" For Output As #FileNumber

      　　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

      　　　　Print #FileNumber, Cells(i, 1)

      　　Next

      　　Close #FileNumber

      End Sub

上記では、ワークシートのA列のデータを、

テキストファイル"C:\TEST.txt"に書き出しています。

以下も参考にしてください。

CSVの読み込み方法

エクセルのVBAでのCSVの読込方法としては、・テキストファイルとして読み込む・ワークブックとして読み込む・クエリーテーブルを使う・ADOを使う、大別するとこのようになります。エクセルのVBAでCSVの読み込みについてネットで検索したところ、これなら、というのが見つかりませんでした。