excel2007マクロ複数のtxtファイル取り込みについて

質問

excel2007マクロ複数のtxtファイル取り込みについて

複数のtxtファイルを1つのシートに1つのファイルを取り込むようなマクロを作成したいのですが上手くいきません。以下は実際の入力内容です。このマクロを実行すると下から5行目の
.Refresh BackgroundQuery:=False
の箇所にエラーが表示されるのですが、解決方法がわかりません。
わかりにくい質問で申し訳ありませんがお答え頂けると助かります。
宜しくお願いします。

Sub Macro4()
'
' Macro4 Macro
'

'
Dim i As Integer
For i = 1 To 10

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\owner\My Documents\test3\BD3.ds0_i.txt", _
Destination:=Range("$A$1"))
.Name = "BD3.ds0_i"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Sheet(i+1)").Select
Next i
End Sub

回答No.1

end-u · ベストアンサー

Dim i As Integer
For i = 1 To 10
　　With Sheets("Sheet" & i).QueryTables.Add _
　　　　(Connection:="TEXT;C:\Documents and Settings\owner\My Documents\test3\BD3.ds0_" & i & ".txt", _
　　　　 Destination:=Sheets("Sheet" & i).Range("$A$1"))
　　　　.FieldNames = True
　　　　.RowNumbers = False
　　　　.FillAdjacentFormulas = False
　　　　.PreserveFormatting = True
　　　　.RefreshOnFileOpen = False
　　　　.RefreshStyle = xlInsertDeleteCells
　　　　.SavePassword = False
　　　　.SaveData = True
　　　　.AdjustColumnWidth = True
　　　　.RefreshPeriod = 0
　　　　.TextFilePromptOnRefresh = False
　　　　.TextFilePlatform = 932
　　　　.TextFileStartRow = 1
　　　　.TextFileParseType = xlDelimited
　　　　.TextFileTextQualifier = xlTextQualifierDoubleQuote
　　　　.TextFileConsecutiveDelimiter = True
　　　　.TextFileTabDelimiter = True
　　　　.TextFileSemicolonDelimiter = False
　　　　.TextFileCommaDelimiter = False
　　　　.TextFileSpaceDelimiter = True
　　　　.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
　　　　.TextFileTrailingMinusNumbers = True
　　　　.Refresh BackgroundQuery:=False
　　　　'.Delete
　　End With
Next i

シート名やファイル名は文字列です。
そこに変数を組み入れる時は
"文字列" & i & "文字列"
としなければいけません。

>"TEXT;C:\Documents and Settings\owner\My Documents\test3\BD3.ds0_i.txt"
これでは単に『BD3.ds0_i.txt』という名前のtxtファイルを指定している事になります。
"TEXT;C:\Documents and Settings\owner\My Documents\test3\BD3.ds0_" & i & ".txt"

>Sheets("Sheet(i+1)")
ここも。
シート名がSheets("Sheet(2)")などの場合は　Sheets("Sheet(" & i + 1 & ")")
Sheets("Sheet1")やSheets("Sheet2")なら　Sheets("Sheet" & i)..というように記述します。

また、シートはSelectしなくても上記コードのように指定すれば良いです。
それに
>.Name = "BD3.ds0_i"
ここは自動指定なので削って良いです。
また同じファイルを同じシートに何度も更新する必要がなければ
'.Delete
のコメントを活かしてQueryTableを削除し、テキストデータだけにしておくと良いです。

お礼

大変参考になりました。
教えて頂いた通り入力すると実行することができました。
ありがとうございました。