Access VBA テキストファイルの読み込み

Question

.txtファイルの１行目だけ取り込み

Access VBAでテキストファイル(.txt)を取り込むときに、テキストファイルの１行目だけを取り込む場合はどのような処理が必要でしょうか？

Answer 1

ファイルを読み込む以外に、RecortdsetのFields コレクションを利用する方法もあります。
Recordsetとしては、TransferText メソッドでcsvを取込んで作成されたテーブル、またはクエリーのInでファイルを指定したものを利用する

以下はテーブルを参照したものですが、Recordsetでも同様にFor Eachでコレクションを列挙すればヘッダーの内容がフィールド名として取得できます。
テーブル内のフィールド名の一覧を取得する

ただ、質問としては、ヘッダーを読むという行為は、何を目的としてそうしたいのかを具体的にした方が、もっと効率的方法の回答が付くかもしれません。

Answer 2

Sub Sample1()
    Dim buf As String
    Open "C:\Sample\Data.txt" For Input As #1　'ファイルを入力モードで開く
        Line Input #1, buf '1行読み込む
        MsgBox buf '読んだ１行をMsgBoxで表示する
    Close #1 'ファイル閉じる
End Sub

というようなプログラムになります。
bufに１行目のデータが読み込まれます。

[出典]
上記のコードは、http://officetanaka.net/excel/vba/file/file08b.htm　から引用しました。
コメントで注釈を加えたのは、私です。