請教大家，我想爬取moneydj上的分點明細，但是執行的時候不知道為甚麼.Navigate url這行跳出頁面，到了Do While .busy 這行出現遠端伺服器不存在或無法使用，該如何解決呢? - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

0

請教大家，我想爬取moneydj上的分點明細，但是執行的時候不知道為甚麼.Navigate url這行跳出頁面，到了Do While .busy 這行出現遠端伺服器不存在或無法使用，該如何解決呢?

excel vba error 462

ian 2020-07-11 18:01:04 ‧ 2101 瀏覽

分享至

Sub moneydjiecss_主力進出()
    Const url As String = "https://www.moneydj.com/z/zg/zgb/zgb0.djhtm?a=7030&b=7030"
    Dim ie As Object, table As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = False
        .Navigate url
        Do While .busy Or .readystate <> 4
            DoEvents
        Loop
        Set table = .document.queryselectorall("table table").Item(11)
        解析表格 table, 0
        Set table = .document.queryselectorall("table table").Item(12)
        解析表格 table, 5
        .Quit
    End With
    Set table = Nothing
    Set ie = Nothing
End Sub

登入發表討論

直播研討會

{{ item.subject }}

{{ item.channelVendor }} {{ item.webinarstarted }} |

{{ formatDate(item.duration) }}

直播中

1 個回答

1

paicheng0111

iT邦大師 5 級 ‧ 2020-07-13 08:45:43

最佳解答

很有可能是www.moneydj.com封鎖了你。
暫停一段時間後，再執行試試看。

回應 1
分享
檢舉

ian iT邦新手 5 級 ‧ 2020-07-13 11:37:27 檢舉

好的，我再試試看，感謝!

登入發表回應

不明

【＊＊此則訊息已被站方移除＊＊】

不明

【＊＊此則訊息已被站方移除＊＊】

不明

【＊＊此則訊息已被站方移除＊＊】

jacksonza

iT邦見習生 ‧ 2021-09-15 15:15:49

【＊＊此則訊息已被站方移除＊＊】

superslotwallet

iT邦見習生 ‧ 2021-11-15 17:14:38

【＊＊此則訊息已被站方移除＊＊】

raidenshogun

iT邦見習生 ‧ 2022-03-15 11:42:39

【＊＊此則訊息已被站方移除＊＊】

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22203 篇

完賽人數

602 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙