返回列表 上一主題 發帖

[發問] QueryTable 下載證券資料問題

謝謝n7822123 的開示。
我剛測試了玉山,還是不行。
另外,若我用資料-> 從web ->輸入URL  去錄製code
日 ...
vanguarx 發表於 2020-7-8 09:07



都可以抓,沒有問題

網站更新時會有問題、抓取過快會有問題
  1. Sub 巨集1()
  2.     Cells.Clear
  3.     sname = 1101
  4.    
  5.     Set myQT = ActiveSheet.QueryTables.Add(Connection:="URL;http://jsjustweb.jihsun.com.tw/z/zc/zcc/zcc_" & sname & ".djhtm", Destination:=Range("$A$1"))
  6.     With myQT
  7.         .WebFormatting = xlWebFormattingNone
  8.         .Refresh BackgroundQuery:=False
  9.         .Delete
  10.     End With
  11.     Set myQT = Nothing
  12. End Sub
複製代碼

TOP

我用了你的code, 只是換成玉山證券網址
結果還是沒反應。

若我的電腦不能run,也許是環境問題。只是我搞 ...
vanguarx 發表於 2020-7-8 14:58


我測試過了,當某些時段
網站在資料更新時
找不到相關網頁
隔一段時間後就能執行

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題