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

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

2^#

發表於 2020-7-6 17:07 | 顯示全部帖子

補充
我的EXCEL 版本是 Excel 2010。
我後來用 Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") 的方式，使用同一台電腦，可以抓到玉山證券的資料。所以應該沒有被封鎖之類的問題，只是想不透為何使用 Querytable 不行...

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

3^#

發表於 2020-7-7 08:32 | 顯示全部帖子

請問有人試過執行玉山sheet 那個巨集，可以抓到資料的 ?

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

4^#

發表於 2020-7-8 09:07 | 顯示全部帖子

謝謝n7822123 的開示。
我剛測試了玉山，還是不行。
另外，若我用資料-> 從web ->輸入URL 去錄製code
日盛是可以成功的，但玉山卻失敗。
我是想搞清楚，到底是對方網站動了手腳，還是我的電腦哪裡的設定不對，導致這樣。
因為同樣code, 有些人執行OK，但我執行就是不成功...

日盛http://jsjustweb.jihsun.com.tw/z/zc/zcc/zcc_2441.djhtm
玉山http://sjmain.esunsec.com.tw/z/zc/zcc/zcc_2441.djhtm

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

5^#

發表於 2020-7-8 14:58 | 顯示全部帖子

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

若我的電腦不能run，也許是環境問題。只是我搞不懂，同樣的code , 我去好幾個人的電腦試過，還是都不行。

Sub 巨集1()
Cells.Clear
sname = 1101

Set myQT = ActiveSheet.QueryTables.Add(Connection:="URL;http://sjmain.esunsec.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

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

6^#

發表於 2020-7-9 10:34 | 顯示全部帖子

感謝幫忙。

看來真的是玉山網站的問題了。