第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 ・・・新着記事一覧を見る
VBA100本ノック 98本目：席替えルールが守られているか確認｜VBA練習問題（3月1日）
VBA100本ノック 97本目：Accessからデータを取得2｜VBA練習問題（2月27日）
VBA100本ノック 96本目：Accessからデータを取得1｜VBA練習問題（2月26日）
VBA100本ノック 95本目：図形のテキストを検索するフォーム作成｜VBA練習問題（2月24日）
VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成｜VBA練習問題（2月23日）
VBA100本ノック 93本目：複数ブックを連結して再分割｜VBA練習問題（2月22日）
VBA100本ノック 92本目：セルの色を16進で返す関数｜VBA練習問題（2月20日）
VBA100本ノック 91本目：時間計算（残業時間の月間合計）｜VBA練習問題（2月19日）
VBA100本ノック 90本目：セルに重なっている画像の削除｜VBA練習問題（2月17日）
VBA100本ノック 89本目：2つのフォルダの統合｜VBA練習問題（2月16日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.マクロはどこに書くの（VBEの起動）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。