自學VBA系列，網頁抓取的按鈕選擇及下拉式選單問題

網頁抓取的過程中經常會出現各種各樣的問題，今天就按鈕選擇及下拉式選單碰到的問題略作解釋。

按鈕選擇問題：

Sub NewUpdatedata() ‘
Dim ur As String, b, ie As Object

ur = "http://abc.com/"

Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

With ie
    .Visible = False 'True為開啟ie, False為不開啟ie
    .Navigate ur
    Do While .ReadyState <> 4 '等待網頁開啟
        DoEvents
    Loop

Application.Wait (Now + TimeValue("0:00:8"))

一般的抓網頁程式碼，set ie object，loop之後要加個等待時間，有時轉換頁面或按鈕會牽涉到龐大的資料量，

需要有足夠的靜止時間，

.Document.getElementByID(“XXXX”).Click

再查找相對應的按鍵的名稱，如果找到ID就更方便，在之前的with裡面接著輸入.Click，

等待時間加上.Click應該可以解決問題。

下拉式選單(dropdown menu)問題：

反而下拉式選單更麻煩一點，不像前面的click就改變頁面，出現需要的資訊。用debug.print看過，明明裡面的值改變了，明明選項的值改變了，但是相對應的資訊卻沒有跑出來，類似的感覺就是你選了頁面，卻沒有按確定鍵。

這個時候我們需要再宣告一個object b進行操作。因為沒有特定id只好從ClassName著手，在第0個位置找到目標，

Set b = .Document.getElementsByClassName(“form-control font-weight-bold”)(0) ‘下拉式選單

Dim event_onChange As Object
Set event_onChange = .Document.createEvent(“HTMLEvents”)
event_onChange.initEvent “change”, True, False

b.selectedIndex = 1
b.FireEvent “onchange”
b.dispatchEvent event_onChange

然後再下面再宣告一個叫onChange的object進行event操作，

b.selectedIndex為不同下拉選項的值，例如”a,1,2,m”等等，需要的資訊應該會跑出來。

難題解決：

最後再按一貫的方法把Hyperlink裡面的值丟到Excel的儲存格裡面，至此，應該可以解決按鈕或者下拉式選單最常碰到的問題。

Set a = .Document.getElementsByTagname(“td”)

 y = 1

 For Each Hyperlink In a


 Cells(y, 1) = Hyperlink.INNERTEXT

   If Cells(y, 1) <> 0 Then
     y = y + 1
       End If
 Next
 End With
    
    ie.Quit
   
End Sub