[發問] 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 那個巨集，可以抓到資料的 ?

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2020-7-7 23:16 | 只看該作者

本帖最後由 n7822123 於 2020-7-7 23:23 編輯

回復 3# vanguarx

玉山那個，昨天我測會卡死，剛剛測可以又抓到資料了~~

可能最近在修改東西吧~

網路爬蟲的生態就是這樣，沒有一個程式可以永久使用

網頁設計者中間插入一個新表格，後面的表格序號就會不同

或者更改介面，改原件ID、改元元件類型，甚至只是改個字串~

原本可以抓到資料的程式就變沒用摟~

回到QueryTable，以後遇到這種情況，

如果你原本是用錄製的，可以再重新錄製看看~

如果你原本是自己寫的，恩~ 那就再檢查看看哪裡不一樣了

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

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

5^#

發表於 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

joey0415

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

6^#

發表於 2020-7-8 09:40 | 只看該作者

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

複製代碼

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

7^#

發表於 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