vba 網址問題

ken759727

1.     Range("A11").Select
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "TEXT;[color=Red]http://ichart.finance.yahoo.com/table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore=.txt[/color]" _
   
4.         , Destination:=Range("$A$11"))
   
5.         .Name = "table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore="
   
6.         .FieldNames = True
   
7.         .RowNumbers = False
   
8.         .FillAdjacentFormulas = False
   
9.         .PreserveFormatting = True
   
10.         .RefreshOnFileOpen = False
    
11.         .RefreshStyle = xlInsertDeleteCells
    
12.         .SavePassword = False
    
13.         .SaveData = True
    
14.         .AdjustColumnWidth = True
    
15.         .RefreshPeriod = 0
    
16.         .TextFilePromptOnRefresh = False
    
17.         .TextFilePlatform = 950
    
18.         .TextFileStartRow = 1
    
19.         .TextFileParseType = xlDelimited
    
20.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
21.         .TextFileConsecutiveDelimiter = False
    
22.         .TextFileTabDelimiter = True
    
23.         .TextFileSemicolonDelimiter = False
    
24.         .TextFileCommaDelimiter = True
    
25.         .TextFileSpaceDelimiter = False
    
26.         .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
    
27.         .TextFileTrailingMinusNumbers = True
    
28.         .Refresh BackgroundQuery:=False
    
29.     End With
    
30.     ActiveWindow.SmallScroll Down:=-12

複製代碼

以上是錄製巨集(從文字檔插入資料)
主要是想修改紅色文字部分，想把參數值加進入，不知該如何表達會比較恰當
http://ichart.finance.yahoo.com/table.txt?s=2002.TW&d=6&e=26&f=2013&g=d&a=0&b=4&c=2000&ignore=.txt

這邊2002 想改成變數
假如變數是 I
請問要如何撰寫會比較恰當

懇請高手幫忙