[belajar-excel] Digest Number 4754

Milis Belajar Microsoft Excel Group

1 Message

Digest #4754

1a

Re: Click Button di Internet Explorer dengan objectgetElementsByClas by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: Click Button di Internet Explorer dengan objectgetElementsByClas

Wed Apr 17, 2019 11:39 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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_ulum@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&quot; 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
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use