返回列表 上一主題 發帖

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-7-24 19:31 | 顯示全部帖子
回復 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
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-7-25 17:57 | 顯示全部帖子
回復 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
複製代碼

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題