Access VBAでCSVファイルから取得した値を配列に格納したい

Question

###配列にエクセルの値を格納したいです。

    Dim a As String
    Dim aa
    Dim buf
    Dim intFF As Integer, i As Integer, j As Integer

FileName = "CSVファイル名"
        intFF = FreeFile
        Open FileName For Input As #intFF
        i = 1
        Do Until EOF(intFF)
            Line Input #intFF, a
            aa = Split(a, ",")
            j = UBound(aa) + 1
            i = i + 1
            buf = Array(aa)
        Loop
        Close #intFF

bufにCSVファイルの値を格納したいです。
宜しくお願いします。

Answer 1

マクロを使って複数回CSVファイルを取り込む必要があるのなら、このアドバイスは的外れですが、別の処理方法として、ACCESSの外部データのインポート機能を使って、テキストファイル(CSVファイル)を新しいテーブルとして取り込む方法があります。テキストファイル(CSVファイル)の１行目にフィールド名を用意しておいてもいいし、自動的にフィールド1、フィールド2・・・とつけてもいいでしょう。
その新テーブルをクエリで活用すれば手間が省けます。
リボンのメニュー上の[外部データ] -> [テキストファイル] -> ファイルを選択し、フィールドを設定し、新テーブルとして取込
以上の流れです。

Answer 2

丸投げですが、rururuさんの「ADOを使ってCSVファイルのデータを取得」の記事が的を射ていると思います。
liliさんはFreefile型を使って、テキストファイル処理をしようとなさっていますが、ADOによるデータベースオブジェクトの操作ならば、一度に各フィールドごとに操作する形がとれます。
渡したいACCESSのmdbファイルないしaccdbファイルもADOによる操作で開いて、レコード書き込み・更新することが自由にできます。
ADOの操作法を勉強してみましょう。 liliをrururuさんがサポートするとは偶然ながらシャレたことです。