返回列表 上一主題 發帖

新手網路爬蟲求救

新手網路爬蟲求救

執行以下程式碼發生:執行階段錯誤'438'

Sub test()
Dim oIE3 As Object, oNode As Object
Set oIE3 = CreateObject("InternetExplorer.Application")
  Sheets("總表").Cells(8, 2).Clear
  With oIE3
  .Visible = True
  .navigate "公司內部網址", "JavaScript"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
    .document.getelementbyid("RB_Current").Checked = Checked
    .document.getelementbyid("RB_LPDA").Checked = Checked
    .document.forms(0).All("btnExcel").Click
     Do While .Busy Or .readyState <> 4: DoEvents: Loop
    'If Application.Wait(Now + TimeValue("0:00:02")) Then
    Sheets("總表").Cells(8, 2) = oIE3.document.getfullpath("/html/body/form/div[2]/div[4]/a").href
   End With
oIE3.Quit
End Sub

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題