Teman-teman be-exceler,Hasil inspect element tombol cari dari sebuah webpage
adalah:;;===============inspect webpage element
<span class="input-group-btn"> <button type="submit" class="btn
btn-success">Cari</button>
</span>
;;==========================
Untuk melakukan click / eksekusi tombol tersebut dari vba- excel, saya membuat
code sebagai berikut:
;;============fungsi ambil submit button by clasname
Private Function ClickSubmitButtonWithClassID(objBrowser As InternetExplorer,
ByVal sDelay As String, _
ByVal sClassID As String) As Boolean
Dim oHTMLDoc As HTMLDocument
Dim oHTML_Element As IHTMLElement
Dim i As Integer
ClickSubmitButtonWithClassID = False
sDelay = Format(TimeValue(sDelay) + TimeValue("00:00:" & Format(i,
"00")), "hh:mm:ss")
Do ' Wait till the Browser is loaded
Application.Wait (Now + TimeValue(sDelay)) '--->NOTE: dicoba pakai
ini berhasil tetapi proses lama
Loop Until objBrowser.readyState = 4 'READYSTATE_COMPLETE
Set oHTMLDoc = objBrowser.document
On Error Resume Next
For Each oHTML_Element In oHTMLDoc.getElementsByClassName(sClassID)
If oHTML_Element.Type = "submit" Then
ClickSubmitButtonWithClassID = True
oHTML_Element.Click: Exit Function
End If
Next
If Err.Number Then
Err.Clear
End If
End Function
;;===========================
Mohon koreksinya, kenapa fungsi di atas tidak melakukan action click tombol
cari di webpage?
Terimakasih,-zainul
