Sayfadaki DropDownList'i seçmek

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

Sayfadaki DropDownList'i seçmek

İleti#1)  xpeker » 08 Mar 2019 21:53

Aşağıdaki kodlar ile web sayfasına bağlanıp,istediğim sayfaya ulaşabiliyorum fakat sayfadaki combobox'ta işlem yapamıyorum;
Kullandığım kod ve işlem yapmak istediğim nesnenin sayfadaki kodu aşağıdadır, HTMLDoc2 kısmında hata alıyorum :(

Kod: Tümünü seç
Private Sub CommandButton1_Click()
  Dim IE As Object
  Dim HTMLDoc As Object, HTMLDoc2 As Object
  Dim objCollection As Object

  Const navOpenInNewTab = &H800
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate "http://www.*****.org/vize.aspx"

  Do While IE.Busy Or IE.ReadyState <> 4: Loop

  Set HTMLDoc = IE.Document

  With HTMLDoc
  HTMLDoc.getElementById("TextBox10").Value = "*****"    'Entering credential
  HTMLDoc.getElementById("TextBox9").Value = "******"
  End With


  Set objCollection = IE.Document.getElementById("Button2")
  objCollection.Click

'Second webpage

  Do While IE.Busy Or IE.ReadyState <> 4: Loop ' opening the second webpage

  Set HTMLDoc2 = IE.Document
  With HTMLDoc2
    .getElementById("DropDownList1").Focus
    .getElementById("DropDownList1").Value = "10"  'You can also loop to find the text of the Option
    .getElementById("DropDownList1").FireEvent ("onchange")
  End With

End Sub


Nesnenin sayfadaki kodu;
Kod: Tümünü seç
<select name="DropDownList1" onchange="javascript:setTimeout('__doPostBack(\'DropDownList1\',\'\')', 0)" id="DropDownList1" style="color:Navy;font-weight:bold;width:210px;">
   <option selected="selected" value="İli Seçiniz...">İli Seçiniz...</option>
   <option value="10">BALIKESİR</option>
Kullanıcı avatarı
xpeker
Siteye Alışmış
 
Kayıt: 05 Oca 2015 17:41
Meslek: memur
Yaş: 38
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir

Cevap: Sayfadaki DropDownList'i seçmek

İleti#2)  Tarkan VURAL » 27 Mar 2019 16:11

Sanırım site dsymb :) Kullanıcı bilgileri gerekiyor. Belki scriptin Change eventi de tetiklenmiyor olabilir. Şöyle deneyiniz :

Kod: Tümünü seç
dim event = IE.document.createEvent("HTMLEvents")
call event.initEvent("change",true,false)
IE.document.getElementById("DropDownList1").dispatchEvent(event)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26963
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Sayfadaki DropDownList'i seçmek

İleti#3)  xpeker » 15 Nis 2019 22:55

Tarkan VURAL yazdı:Sanırım site dsymb :) Kullanıcı bilgileri gerekiyor. Belki scriptin Change eventi de tetiklenmiyor olabilir. Şöyle deneyiniz :

Kod: Tümünü seç
dim event = IE.document.createEvent("HTMLEvents")
call event.initEvent("change",true,false)
IE.document.getElementById("DropDownList1").dispatchEvent(event)


Tarkan bey cevabınızı yeni gördüm :oops:
Her zamanki gibi kıt bilgim ile de beceremedim :D
Aslında bu site için değil başka bir site için gerekli idi bu dropdrownlist örneği.Kodlar ile Turkvet sistemine, kullanıcı adı ve sifreyi yazdırıp,onaylatıp,menü seçeneklerini de geçip, istediğim seçenek kısmına bilgileri de gönderebiliyorum, fakat istediğim sayfadaki butona da tıklatınca sanki hiç veri göndermemiş gibi bomboş kalıyor tüm seçenekler :(
Bir ara profesyonel yardım almam gerekecek sanırım :)
Kullanıcı avatarı
xpeker
Siteye Alışmış
 
Kayıt: 05 Oca 2015 17:41
Meslek: memur
Yaş: 38
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir


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