暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
謝謝n7822123 的開示。
我剛測試了玉山，還是不行。
另外，若我用資料-> 從web ->輸入URL 去錄製code
日 ...
vanguarx 發表於 2020-7-8 09:07 
都可以抓，沒有問題
網站更新時會有問題、抓取過快會有問題- Sub 巨集1()
- Cells.Clear
- sname = 1101
-
- Set myQT = ActiveSheet.QueryTables.Add(Connection:="URL;http://jsjustweb.jihsun.com.tw/z/zc/zcc/zcc_" & sname & ".djhtm", Destination:=Range("$A$1"))
- With myQT
- .WebFormatting = xlWebFormattingNone
- .Refresh BackgroundQuery:=False
- .Delete
- End With
- Set myQT = Nothing
- End Sub
|
|
發表於 2020-7-8 09:40
| 