[發問] 在網頁抽取資料時遇到「沒有使用權限」的問題

本帖最後由小俠客於 2016-12-8 10:33 編輯

以下是我在網站抽取資料時用的CODE

Sub test()
Dim http As Object, i As Integer
Set http = CreateObject("InternetExplorer.Application")
With http
For i = 1 To 100
.Navigate "http://www.hkexnews.hk/sdw/search/search_sdw.asp"
.Visible = True
Do While .readyState <> 4
DoEvents
Loop
.document.getelementbyid("ddlShareholdingDay").Value = 30
.document.getelementbyid("ddlShareholdingMonth").Value = 11
.document.getelementbyid("ddlShareholdingYear").Value = 2016
.document.getelementbyid("txtStockCode").Value = Format(Cells(i, 1), "00000")
.document.getelementbyid("btnSearch").Click
Do Until InStr(.document.body.innerhtml, "pnlResult") > 0
DoEvents
Loop
Set A = .document.getelementbyid("pnlResult")
Do Until InStr(result, "Remarks:") > 0
DoEvents
result = A.innerhtml
Loop
Debug.Print Cells(i, 1)
Next i
End With
End Sub

複製代碼

最初運行是沒有問題，但當我的LOOPING行了十多次後，我就會遇到ERROR，說我「沒有使用權限」，然後程式便在「Set A = .document.getelementbyid("pnlResult")」停止。如果我在此時按F8，程式是可以繼續運行。
於是我在想是不是因為我的上一句：「.document.getelementbyid("btnSearch").Click」，網頁redirect到結果網頁，需要時間產生html code，導致我行 set A那一句時，網頁還沒有pnlResult的item。於是我便加上了：

Do Until InStr(.document.body.innerhtml, "pnlResult") > 0
DoEvents
Loop

複製代碼

先檢查html code中有沒有「pnlResult」才set A，可是問題仍然存在，我仍然需要人手重啟程式。請問各位有沒有方法解決？謝謝大家。

test.zip (14.79 KB)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-12-8 13:45 | 只看該作者

回復 1# 小俠客

Sub test()
On Error GoTo ErrorHandle
Dim http As Object, i As Integer
Set http = CreateObject("InternetExplorer.Application")
With http
For i = 1 To 100
.Navigate "http://www.hkexnews.hk/sdw/search/search_sdw.asp"
.Visible = True
Do While .readyState <> 4: DoEvents: Loop
.document.getelementbyid("ddlShareholdingDay").Value = 30
.document.getelementbyid("ddlShareholdingMonth").Value = 11
.document.getelementbyid("ddlShareholdingYear").Value = 2016
.document.getelementbyid("txtStockCode").Value = Format(Cells(i, 1), "00000")
.document.getelementbyid("btnSearch").Click
Do Until InStr(.document.body.innerhtml, "pnlResult") > 0
DoEvents
Loop
Set A = .document.getelementbyid("pnlResult")
Do Until InStr(result, "Remarks:") > 0
DoEvents
result = A.innerhtml
Loop
Debug.Print Cells(i, 1)
Next i
End With
Exit Sub
ErrorHandle:
If Err.Number = 70 Then '沒有使用權限
Resume 'do nothing, back to error
Else
Debug.Print Err.Number, Err.Source, Err.Description
Stop 'F8 to debug problem
Resume
End If
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

3^#

發表於 2016-12-13 10:50 | 只看該作者

本帖最後由小俠客於 2016-12-13 10:56 編輯

回復小俠客
stillfish00 發表於 2016-12-8 13:45

沒想到原來可以用ERROR HANDLING的方法，謝謝大大。但我使用error handle時因為下面的小問題而出錯，所以我只能用sleep的方法，沒有用error handle
一個小問題，如果程式尋找沒有資料的編號，例如：「820」，網頁會有pop-up msgbox說：「Stock code 820 does not exist ... 」，所以我想先檢查html有沒有「does not exist 」的字眼，如果有我便跳到下一隻。
但可能因為pop-up msgbox的關係，我下一個loop走到「.Navigate "http://www.hkexnews.hk/sdw/search/search_sdw.asp"」時會顯示「-2147024726 VBAProject 'Navigate' 方法 ('IWebBrowser2' 物件) 失敗」