Siteden Veri Almak

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

Siteden Veri Almak

İleti#1)  senuba » 26 Eyl 2018 10:17

Herkese merhaba,
Aşağıda vereceğim sitede, üst tarafta oluşturulmuş olan mail adresini excel vba ile almaya çalışıyorum. Fakat textbox'a yazdırdığımda hep "object" sonucu alıyorum. Bu veriyi nasıl alabilirim acaba?

site: https://temp-mail.org/

Yazdığım kod (UserForm1 içerisinde 1 adet WebBrowser1, CommandButon ve TextBox):

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim adres As String
    Me.Caption = "Google"
    adres = "https://temp-mail.org/"
        With WebBrowser1
        .Navigate adres
        Do While Not .ReadyState = 4: DoEvents: Loop
        Application.Wait Now() + TimeValue(" 00:00:01")
        End With
    adres = ""
   
    Dim doc As HTMLDocument
For i = 0 To 500

TextBox1.Text = WebBrowser1.Document.getElementById("mail")(i) + TextBox1.Text

Next i

End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub

Sub UserForm_activate()
WebBrowser1.Silent = True
End Sub
Kullanıcı avatarı
senuba
Siteye Alışmış
 
Kayıt: 14 Arl 2014 00:46
Meslek: Makina Mühendisi
Yaş: 30
İleti: 120
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Siteden Veri Almak

İleti#2)  şahin » 26 Eyl 2018 12:38

Ekte

Kod: Tümünü seç
Private Sub CommandButton2_Click()
adres = "https://temp-mail.org/"
        With WebBrowser1
        .Navigate adres
        Do While Not .ReadyState = 4: DoEvents: Loop
        Application.Wait Now() + TimeValue(" 00:00:01")
        End With
        Dim element  As HTMLFormElement
       
For Each element In WebBrowser1.Document.getElementsByTagName("input")
TextBox1.Text = element.getAttribute("value")
Next
End Sub

Private Sub UserForm_Activate()
WebBrowser1.Silent = True
End Sub




WebSayfası_iputbox_Textbox _VeriÇekme.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 380
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Siteden Veri Almak

İleti#3)  senuba » 26 Eyl 2018 12:49

Çok teşekkür ederim. Çalıştı. İyi ki varsınız.
Kullanıcı avatarı
senuba
Siteye Alışmış
 
Kayıt: 14 Arl 2014 00:46
Meslek: Makina Mühendisi
Yaş: 30
İleti: 120
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe