iT邦幫忙

0

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

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

2 個回答

1
paicheng0111
iT邦高手 1 級 ‧ 2020-07-13 08:45:43

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

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

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

0

การสร้างเว็บไซต์ในสมัยก่อนคุณต้องมีความรู้เกี่ยวกับ HTML (ภาษาบนเว็บ) หรือต้องสามารถใช้เครื่องมือสร้างเว็บไซต์อย่าง Dreamweaver (ซึ่งยากและซับซ้อน) หากคุณไม่มีความรู้นี้คุณไม่มีทางเลือกอื่นนอกจากเสียเงินจ้างนักออกแบบเว็บไซต์ รีวิว PG SLOT เกมส์ยอดฮิตในปัจจุบัน (ยิ่งคุณต้องการให้เว็บไซต์ของคุณดูสวยงามและดูดีต้นทุนการสร้างเว็บไซต์จะเพิ่มขึ้นเท่านั้น)

我要發表回答

立即登入回答