テキストファイルを開く際のFor文の使い方

質問

質問です。あるフォルダに入っているテキスト形式のデータ10個をエクセルで開いていくＶＢＡのプログロムを書いているのですが、エラー文で「データ_i.txtがありません」と表示されます。私の書いたプログラムは下記です。

Sub テスト()
テスト Macro
Dim i As Integer

For i = 0 To 5
ChDir "C:\Documents and Settings\データ"

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\データ\_i.txt" _
, Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Next i
End Sub

このプログラムの目的は、テキストデータの入っているフォルダを他の名前に変更したときも、その中に入っているテキストデータ10個をエクセルで展開するためです。おそらく"C:\Documents and Settings\データ\_i.txt"のiの部分が間違えていると思うのですが、どうすればいいでしょうか？よろしくお願いします。

回答No.1

himajin100000 · ベストアンサー

C:\test
に
a1.txt(内容a)
a2.txt(内容b)
a3.txt(内容c)
があるとする。
======================
Option Explicit 'On
'VB6/VBAでは使えない
'Option Strict On
'Option Compare Binary
'Option Infer Off

Sub hoge()
Dim i As Integer
For i = 1 To 3
Workbooks.OpenText Filename:="C:\test\" & ("a" & CStr(i) & ".txt")
Next i

End Sub

お礼

回答ありがとうございます。

himajin100000さんのおかげでできました！！ものすごくうれしいです。
今朝からずっとネットで調べていたのですができずに困っていました。
本当にありがとうございます！
もっと勉強しようと思います。