帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-3-5 07:02 | 只看該作者

在 windows7 環境抓不到資料??

本帖最後由 t8899 於 2015-3-5 07:04 編輯

office 2003
在windows xp 下一切正常
在windows 7抓不到資料???(但如用F8,單步執行則抓的到)
測驗發現在 .Document.BODY.innerHTML = .Document.getElementsByTagName("table")(4).outerHTML 抓不到資料

Book2.zip (20.2 KB)

樓主熱帖

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

9^#

發表於 2015-3-7 07:29 | 只看該作者

本帖最後由 t8899 於 2015-3-7 07:31 編輯

回復 t8899

程式跑的比IE下載資料速度快,只好等它一下
GBKEE 發表於 2015-3-6 14:06

我剛發現
Application.Wait Time + #12:00:01 AM#
應該加在 If InStr(.Document.BODY.innerText, "查無資料") Then 的前面才對?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2015-3-6 14:46 | 只看該作者

回復 7# t8899

這行不是解決這種問題?? Do While .Busy Or .readyState <> 4: DoEvents

應該是的,但它不行也沒輒ㄚ

EX.JPG (88.3 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

7^#

發表於 2015-3-6 14:26 | 只看該作者

本帖最後由 t8899 於 2015-3-6 14:28 編輯

回復 t8899

程式跑的比IE下載資料速度快,只好等它一下
GBKEE 發表於 2015-3-6 14:06

謝謝指導!
這行不是解決這種問題?? Do While .Busy Or .readyState <> 4: DoEvents

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-3-6 14:06 | 只看該作者

回復 5# t8899

程式跑的比IE下載資料速度快,只好等它一下

Application.Wait Time + #12:00:01 AM# '慢慢地一秒一秒加上直到正常為止
Do
Set A = .Document.getElementsByTagName("table")
Loop Until A.Length = 6

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

t8899

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-12

5^#

發表於 2015-3-6 12:46 | 只看該作者

回復 t8899
再試試看
GBKEE 發表於 2015-3-6 09:19

是沒問題了
但資料的日期偶而會抓到前1日
今日尚未收盤，應抓到 3/5 , 試5次有1次抓到3/4

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-3-6 09:19 | 只看該作者

回復 3# t8899
再試試看

Option Explicit
Sub ABC123()
Dim XDate As Date, A As Object
Application.ScreenUpdating = False
Sheets("3").Select
XDate = Date
With CreateObject("InternetExplorer.Application")
.Visible = False
.Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php"
330:
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.Document.ALL("qdate").Value = Format(XDate, "E/MM/DD") '日期可修改
.Document.ALL("selectType").Value = "ALLBUT0999"
.Document.ALL("query-button").Click
Do While .Busy Or .readyState <> 4: DoEvents: Loop
If InStr(.Document.BODY.innerText, "查無資料") Then
XDate = XDate - 1
GoTo 330
End If
Do
Set A = .Document.getElementsByTagName("table")
Loop Until A.Length = 6
.Document.BODY.innerHTML = A(4).outerHTML
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
With Sheets("3") '可指定工作表
.UsedRange.Clear
.Range("A1:P1000").ClearContents
.Range("A2").Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NOHTMLFormatting:=True
End With
.Quit '關閉網頁
End With
End Sub