彙入證交所的資料無法更新

lman

這是證交所網址http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201007/A11220100723MS.php?
因已爬文一週還是無法解決
如匯入2010/7/１９，再更新時，每次更新後仍是顯示2010/7/１９的資料，而非當日，
是否可以在A1設定日期
然後再依日期更新
請高手指點，拜託!感恩!!
text.rar (11.11 KB)

下載次數: 15

2010-7-24 17:08

GBKEE

回復 1# lman

1. Sub Ex()
   
2.     With ActiveSheet.QueryTables(1)
   
3.         .Connection = _
   
4.         "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Format(ActiveSheet.[A1], "YYYYMM") & "/A112" & Format(ActiveSheet.[A1], "YYYYMMDD") & "MS.php?select2=MS&chk_date=" & Format(ActiveSheet.[A1], "EE/MM/DD")
   
5.         .WebSelectionType = xlSpecifiedTables
   
6.         .WebFormatting = xlWebFormattingNone
   
7.         .WebTables = "8"
   
8.         .WebPreFormattedTextToColumns = True
   
9.         .WebConsecutiveDelimitersAsOne = True
   
10.         .WebSingleBlockTextImport = False
    
11.         .WebDisableDateRecognition = False
    
12.         .WebDisableRedirections = False
    
13.         .Refresh BackgroundQuery:=False
    
14.     End With
    
15. End Sub

複製代碼

lman

這就是專業
不得不服
非常感謝版主GBKEE
協助解決

lman

版主GBKEE大大
所寫程式可依日期匯入資料無誤
但是有一點很好奇提出問一下(因為我不懂)
程式碼內容沒有匯入資料存放的儲存格
為何放A3可以自動更新
如果資料剪下複製B3也可以自動更新
似乎會自動搜尋更新
如果是指定匯入資料存放的儲存格
那要如何修改
謝謝

GBKEE

回復 4# lman   
程式碼內容沒有匯入資料存放的儲存格
為何放A3可以自動更新

因為程式套上你附檔工作表中已有一個外部資料來源所傳回之資料的查詢表 並指定了網址
只要沒有刪除這查詢表 執行程式 就會更新資料
With  ActiveSheet.QueryTables(1)    '代表指定工作表中外部資料來源所傳回之資料的第一個查詢表
.Connection = _
        "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Format(ActiveSheet.[A1], "YYYYMM") & "/A112" & Format(ActiveSheet.[A1], "YYYYMMDD") & "MS.php?select2=MS&chk_date=" & Format(ActiveSheet.[A1], "EE/MM/DD")      '查詢表的網址
如果是指定匯入資料存放的儲存格

1. Sub Ex()
   
2. Dim Rng As Range, OldRng$
   
3. Set Rng = ActiveSheet.[J1] '指定新的位址 且已指定日期
   
4. On Error GoTo QueryTablesAdd
   
5. With Rng.QueryTable
   
6. .Connection = _
   
7. "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Format(Rng, "YYYYMM") & "/A112" & Format(Rng, "YYYYMMDD") & "MS.php?select2=MS&chk_date=" & Format(Rng, "EE/MM/DD")
   
8. .WebSelectionType = xlSpecifiedTables
   
9. .WebFormatting = xlWebFormattingNone
   
10. .WebTables = "8"
    
11. .WebPreFormattedTextToColumns = True
    
12. .WebConsecutiveDelimitersAsOne = True
    
13. .WebSingleBlockTextImport = False
    
14. .WebDisableDateRecognition = False
    
15. .WebDisableRedirections = False
    
16. .Refresh BackgroundQuery:=False
    
17. End With
    
18. End
    
19. QueryTablesAdd:
    
20. OldRng = Rng.Value
    
21. Rng.Value = ""
    
22. With ActiveSheet.QueryTables.Add(Connection:= _
    
23. "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201007/A11220100723MS.php?select2=MS&chk_date=99/07/23", Destination:=Rng)
    
24. .Name = "大盤統計資訊"
    
25. .WebTables = "8"
    
26. .Refresh BackgroundQuery:=False
    
27. .ResultRange.ClearFormats
    
28. End With
    
29. Rng.Value = OldRng
    
30. Resume
    
31. End Sub

複製代碼

lman

科技始終來自人性
程式碼稍為修改
可讓執行呈現更簡易
謝謝      版主GBKEE
二則程式碼皆已收下研究中