yucheng1011 wrote:
我0123456789...試了一輪.還是不行.請問應怎麼修正它
Set Table = HTMLsourcecode.all.tags("table")(6).Rows
可能您剛好遇到網頁改版吧
2 => ok
yahoo 沒有到9，只到7(0~6)
debug.print HTMLsourcecode.all.tags("table").length
個人積分：2602分
文章編號：81221164
個人積分：5分
文章編號：81223236
個人積分：2602分
文章編號：81223486
個人積分：5分
文章編號：81225607
個人積分：2602分
文章編號：81226328
yucheng1011 wrote:
我的檔案是從一樓下載下來的檔案(有yahoo.有鉅亨).試了三台電腦都不行.連鉅亨都不行
一樓? 2016/03
那個範例不能用是正常的…現在2021了，網站都不知道改版幾次了
請改從21樓開始看簡易教學…
yucheng1011 wrote:
我再把你上一樓的2412的例子重打了一次
一台電腦可以.一台電腦不行
偵錯也是停在
Set Table = HTMLsourcecode.all.tags("table")(2).Rows
2412那個，是21樓範例…
xp以上電腦，該範例不限excel版本，都可正常執行
(公司電腦除外，有些會用防火牆擋住，或使用者權限上有限制)
另外，部份xp電腦可能需要做tls修正，請參考440樓
(20210325 19:10補充：)
剛剛重新下載1樓yahoo範例測試，改("table")(2)後，可正常執行，其它程式碼不需修正
您可能沒有修正範例中的股票代號，有些下市(櫃)了，查不到資料，所以會停在("table")(2)
例如：第18、20列的，就不見了
該簡易範例，是以股票代號正確的前提下寫的，並沒有加入除錯功能，
請手動填入正確的股票代號後，再測試
如需除錯功能，我在其它範例裡有說明，請自行找找其它樓層
個人積分：5分
文章編號：81234116
snare wrote:
剛剛重新下載1樓yahoo範例測試，改("table")(2)後，可正常執行，其它程式碼不需修正
您可能沒有修正範例中的股票代號，有些下市(櫃)了，查不到資料，所以會停在("table")(2)
例如：第18、20列的，就不見了
謝謝版大的回覆.以上這一點我也發現了.其他二台電腦可以順利運行了,他們是VBA7.0
但我還有一台電腦不行,它是VBA 7.1
在2412那個例子中(其他二台VBA7.0可以順利運行,debug.print HTMLsourcecode.body.innerhtml正常,是2412的頁面).
用debug.print URL,網址無誤,
但debug.print HTMLsourcecode.body.innerhtml
就是問題所在了.
跑出了一堆東西,不是2412頁面的東西.所以沒有表格讓它抓.就產生錯誤訊息了
跟版主報告一下,若有好的建議,再分享一下
謝謝版主
個人積分：2602分
文章編號：81234284
個人積分：5分
文章編號：81239581
個人積分：2602分
文章編號：81240399
個人積分：5分
文章編號：81246236
關閉廣告