[belajar-excel] Digest Number 4749

Milis Belajar Microsoft Excel Group

1 Message

Digest #4749

1

Click Button di Internet Explorer dengan objectgetElementsByClassNam by "Zainul Ulum" zainul_ulum

Message

1

Click Button di Internet Explorer dengan objectgetElementsByClassNam

Wed Apr 10, 2019 10:33 pm (PDT) . Posted by:

"Zainul Ulum" zainul_ulum

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 (1) . 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