Ayo kita ngobrolin Excel dimana gitu... Sabtu Minggu sampai sebelum ramadhan sih ok Kalau nggak, mungkin mulai akhir juni sabtu minggu juga ok
On Wed, Apr 24, 2019 at 5:44 AM zainul ulum zainul_u...@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote: > > > mas Kid, > maaf baru bisa replay. > masalahnya solved. Ternyata ada dua buttons dengan classname yang nama > dalam page tsb. > > Kapan bisa ketemuan langsung? aku banyak kerjaan yang pakai web > scrapping... > > maturnuwun > _zainul. > > On Apr 18, 2019 1:39 AM, "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" < > belajar-excel@yahoogroups.com> wrote: > > > > 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 > > > > >