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