返回列表 上一主題 發帖

想要利用vba抓動態網頁資料,有沒有方法可以讓網頁設定好下拉式選單,再進去撈資料。

想要利用vba抓動態網頁資料,有沒有方法可以讓網頁設定好下拉式選單,再進去撈資料。

想要利用vba抓動態網頁資料,有沒有方法可以讓網頁Show  entries設定為"100",再進去撈資料。
  1. Sub test()

  2.     x = Timer

  3.     Dim ie As Object
  4.     Set ie = CreateObject("InternetExplorer.Application")
  5.    
  6.     u = "網址"

  7.     ie.navigate u
  8.     ie.Visible = True
  9.    

  10.     Do
  11.     DoEvents
  12.     Loop Until ie.readyState = READYSTATE_COMPLETE
  13.     Dim doc As HTMLDocument
  14.     Set doc = ie.document
  15.                  
  16.     Application.Wait (Now + TimeValue("0:00:03"))

  17.     On Error Resume Next

  18.     For i = 0 To 30
  19.     Worksheets("I").Range("I" & i + 3) = doc.getElementsByClassName("R10 dataTable")(0).getElementsByTagName("td")(i * 6 + 1).innerText
  20.     Next i

  21.     ie.Quit      '關畢ie
  22. End Sub
複製代碼

回復 1# mattlee1111

1.png (449.27 KB)

1.png

TOP

回復 1# mattlee1111

請參考:
    http://forum.twbts.com/thread-13209-1-1.html
   #7,調用js的方法

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題