VBAでテキストファイルからデータを読み込む方法

VBAでテキストファイルからデータを読み込む方法を探しています。
コンマ区切りのデータを、エクセルに書き込みたいです。
テキストファイルにはコンマ区切りで6個のデータを書き込んであります。
それを、セルD3からD7に書き込む方法を教えていただきたいです。よろしくお願いします。

No.1 ベストアンサー 回答者： naganaga_001 回答日時： 2006/07/03 17:31

お世話になります。

D3 ～ D7 って 5 個しかセルがないのですが...。
いいんでしょうか。

とりあえず、こんな感じでしょうか。
Private Sub CommandButton1_Click()
　　Dim inputeds() As String
　　Dim inputed As String
　　Dim fileNo As Integer
　　
　　fileNo = FreeFile()
　　Open "c:\test.csv" For Input As #fileNo
　　Line Input #fileNo, inputed
　　Close #fileNo
　　inputeds = Split(inputed, ",", -1)
　　
　　Dim i As Integer
　　For i = 3 To 7
　　　　Dim rng As Range
　　　　Set rng = Sheet1.Range("D" & CStr(i))
　　　　rng.Value = inputeds(i - 3)
　　　　Set rng = Nothing
　　Next i
End Sub

この回答へのお礼

ありがとうございます！！
とってもたすかりました。
早速の回答ありがとうございました。

お礼日時：2006/07/03 17:56

No.2 回答者： imogasi 回答日時： 2006/07/03 21:57

テキストファイルは、１レコードだけ書かれているのですか。

６個のデータとは、フィールドが６個か、レコードが６個か（Splitが要らない）。
D3からD7は５個なのだか、「６個のデータ」との関連は。
＞とってもたすかりました。
ほんとにテストして、うまく行ったんですか。
＞コンマ区切りのデータを、エクセルに書き込みたいです
ー＞コンマ区切りのデータを読んで、エクセルに書き込みたいです。
質問表現は神経を使って。