第118回.ファイル操作Ⅱ（Print #）
VBAでファイル（CSV等）を扱う時は、
最初に、ファイルを開き、
次に、読込書込みを行い、
最後に、ファイルを閉じます。
Print # ステートメント
Print #filenumber, [outputlist]
| filenumber | 必ず指定します。 任意のファイル番号を指定します。 OpenステートメントやCloseステートメントで指定するファイル番号と一致させます。 |
||||||||
| outputlist | 省略可能です。 出力する式や数式または文字列式を指定します。 [{Spc(n) | Tab[(n)]}] [expression] [charpos]
|
引数 outputlist を省略し引数 filenumber の後ろに区切り記号だけを指定すると、ファイルに空白行を出力します。
ブール型 (Boolean) のデータは、True または False という文字列で出力されます。
日付型 (Date) のデータは、コントロール パネルで設定した短い形式で書き込まれます。
Print # ステートメントの使用例
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"に書き出しています。
このVBAサンプルのように、FreeFile関数を使用して次に使用可能なファイル番号を取得するようにした方がより安全です。
CSVの読み込み方法
同じテーマ「マクロVBA入門」の記事
第115回.Split関数
第116回.ファイル操作Ⅱ（OpenとClose）
第117回.ファイル操作Ⅱ（Line Input #）
第118回.ファイル操作Ⅱ（Print #）
第119回.ファイルシステムオブジェクト（FileSystemObject）
第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
第122回.Shell関数
第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
新着記事NEW ・・・新着記事一覧を見る
pipコマンド（外部ライブラリのインストール）｜Python入門（10月1日）
CSV読み書き（csvモジュール）｜Python入門（9月29日）
「Excel 4.0 マクロ」の使い方｜VBA技術解説（9月28日）
CSV読み込みとopen()関数とwith文｜Python入門（9月28日）
フォルダとファイルの一覧を取得（os,glob,pathlib）｜Python入門（9月26日）
import文（パッケージ・モジュールのインポート）｜Python入門（9月24日）
例外処理（try文）とexception一覧｜Python入門（9月23日）
リスト内包表記｜Python入門（9月22日）
Pythonの引数は参照渡しだが・・・｜Python入門（9月21日）
lambda（ラムダ式、無名関数）と三項演算子｜Python入門（9月20日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。