不会用变量求助

Sub 宏8()
Dim i As Integer
For i = 1 To 3
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;E:\Research\TXT\PD000i.txt", Destination:=Range("A" & i)) ' "TEXT;E:\Research\TXT\PD000i.txt"大神们这里怎么引用变量i啊？？？
.Name = "PD0001_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 936
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A" & i).Select
Next
End Sub