mas Zain, Mungkin tipe datanya dijadikan object malah bisa bekerja... (mungkin loh ya) Dim oHTML_Element As object
On Thu, Apr 11, 2019 at 12:34 PM Zainul Ulum zainul_u...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > > > 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 > > > >