返回列表 上一主題 發帖

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

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

我原本都用玉山證券以QueryTable 下載相關的財務報表資料
但最近突然不能用了,出現了如下的信息。我以為是被玉山證券封鎖了,但是使用Browser 又可以進玉山證券,所以應該不封鎖IP
因此改用日盛證券。但神奇的是 同一支程式,只是連結的URL不同,但有個人的電腦是可以連到玉山證券的,但我的電腦及我找了幾個人幫忙測試(家裡與公司同事都有)都連不上玉山證券,同樣出現如下圖的資訊

想請問是否電腦要做甚麼特殊設定才可以 ?
附檔有分連玉山證券與日盛證券。code 都一樣,只是URL不一樣





圖片 4.png
2020-7-6 16:57

QueryTable Test.rar (26.13 KB)

測試檔

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

TOP

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

TOP

謝謝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

TOP

我用了你的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

TOP

感謝幫忙。

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

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題