[Çözüldü]  Dropdown Menü Tıklamıyor

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

Dropdown Menü Tıklamıyor

İleti#1)  srcnsnss » 06 Ağu 2019 18:43

5 Günlük emeğin ardından gene bir yerde takılıp kaldım. Web sitesindeki Dropdown değeri değiştirmek için aşağıdaki kodu kullanıyorum
Kod: Tümünü seç
Set gunler = ie.document.getElementById("dayId")
gunler.selectedIndex = 0


Bu kod sadece değeri değiştiriyor ancak site buna tıklamadan işlem yapmıyor. Tıklaması için .Click komutunu denedim listeye tıklamıyor tıklıyorsa bile liste açılmıyor. Bu dropdown'da bir değere nasıl tıklatabilirim?

http://arsiv.mackolik.com/Genis-Iddaa-Programi

Bu linkte dayid yani gün seçme kısmında hepsi seçeneğine tıklama yaptırmalıyım. Devamında zaten gelen verileri dosyama aktarabiliyorum.

Yardımlarınız için şimdiden çok teşekkür ederim.
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Dropdown Menü Tıklamıyor

İleti#2)  Ozan İLGÜN » 07 Ağu 2019 13:38

gunler.childNodes(1).selected = true

ie.Document.parentWindow.execScript "window.ConfirmSave = function(){javascript:changeDay( " & Chr(34) & "10.08.2019" & Chr(34) & ");};"

Bunları deneyip sonucu bildirin.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#3)  srcnsnss » 07 Ağu 2019 16:46

Ozan İLGÜN yazdı:gunler.childNodes(1).selected = true

ie.Document.parentWindow.execScript "window.ConfirmSave = function(){javascript:changeDay( " & Chr(34) & "10.08.2019" & Chr(34) & ");};"

Bunları deneyip sonucu bildirin.


Malesef hocam kodlar işe yaramadı değişiklik yapmadı belki arka planda yapmıştır ama ön planda değişiklik yok [ilginc]

Aşağıda bütün makrolar mevcut şimdilik bülteni sadece oynanmamışlar tikini kaldırarak excel sayfama çekiyor.

Herhangi boş bir excel dosyasında deneme yapabilmeniz için paylaşıyorum. İlgilendiğiniz için çok teşekkür ederim.

Kod: Tümünü seç
Sub GEVA()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
.Visible = True
.navigate "http://arsiv.mackolik.com/Genis-Iddaa-Programi"
Do While ie.Busy: DoEvents: Loop
Do Until ie.readyState = 4: DoEvents: Loop
Do
        DoEvents
        Application.Wait Now + TimeValue("0:00:01")
    Loop Until ie.Document.readyState = "complete"
End With


Set Doc = ie.Document



s = 1
c = 1



With ActiveSheet
    .Cells.Clear
    Cells.Select
    Selection.NumberFormat = "@"
    Set tablo1 = Doc.getElementsByTagName("table")
    Set noplayed = Doc.getElementById("justNotPlayed")
    noplayed.Click
    Application.Wait Now + TimeValue("0:00:03")
   
   
   
    'Sizin verdiğiniz kod
    Set gunler = Doc.getElementById("dayId")
    ie.Document.parentWindow.execScript "window.ConfirmSave = function(){javascript:changeDay( " & Chr(34) & "10.08.2019" & Chr(34) & ");};"
    '--------------------
   
   
    For Each ab In tablo1
        For Each tr In ab.getElementsByTagName("tr")
            For Each td In tr.getElementsByTagName("td")
                Cells(s, c) = td.innertext
                c = c + 1
            Next
        c = 1
        s = s + 1
        Next
    c = 1
    s = s + 1
    Next
   
End With:

End Sub
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#4)  srcnsnss » 07 Ağu 2019 16:52

Ozan İLGÜN yazdı:gunler.childNodes(1).selected = true

ie.Document.parentWindow.execScript "window.ConfirmSave = function(){javascript:changeDay( " & Chr(34) & "10.08.2019" & Chr(34) & ");};"

Bunları deneyip sonucu bildirin.


Hocam jitbit macro programıyla tıklatma makrosu kaydetsem bunu exe olarak programımın yanına dahil etsem sizce çözüm olur mu? Sadece keypress işlemleriyle bile oluyor. 4x Tab > 1x Enter > 6 x uparrow > 1x enter. Ya da bunu excel makrolarıyla yapabilir miyim?
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#5)  srcnsnss » 07 Ağu 2019 17:19

srcnsnss yazdı:
Ozan İLGÜN yazdı:gunler.childNodes(1).selected = true

ie.Document.parentWindow.execScript "window.ConfirmSave = function(){javascript:changeDay( " & Chr(34) & "10.08.2019" & Chr(34) & ");};"

Bunları deneyip sonucu bildirin.


Hocam jitbit macro programıyla tıklatma makrosu kaydetsem bunu exe olarak programımın yanına dahil etsem sizce çözüm olur mu? Sadece keypress işlemleriyle bile oluyor. 4x Tab > 1x Enter > 6 x uparrow > 1x enter. Ya da bunu excel makrolarıyla yapabilir miyim?


Sorunumu aşağıdaki yöntemle çözmüş bulunmaktayım biraz düz mantık ama olsun iş görüyor deneyebilirsiniz. :lol:

Kod: Tümünü seç
Sub GEVA()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
.Visible = True
.navigate "http://arsiv.mackolik.com/Genis-Iddaa-Programi"
Do While ie.Busy: DoEvents: Loop
Do Until ie.readyState = 4: DoEvents: Loop
Do
        DoEvents
        Application.Wait Now + TimeValue("0:00:01")
    Loop Until ie.Document.readyState = "complete"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{TAB}"
    SendKeys "{ENTER}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
    SendKeys "{UP}"
   
End With
End Sub
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Dropdown Menü Tıklamıyor

İleti#6)  Ozan İLGÜN » 07 Ağu 2019 17:20

Vbada sendkeys komutları var. Şu an telefonda olduğum için bulamıyorum. Forumda ararsan bulursun.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#7)  srcnsnss » 07 Ağu 2019 17:26

Ozan İLGÜN yazdı:Vbada sendkeys komutları var. Şu an telefonda olduğum için bulamıyorum. Forumda ararsan bulursun.


[komik] tamda o şekilde çözdüm hocam elinize emeğinize sağlık..
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Dropdown Menü Tıklamıyor

İleti#8)  Ozan İLGÜN » 07 Ağu 2019 18:40

Rica ederim. Fırsatım olursa sendkeys kullanmadan yapar gönderirim.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#9)  srcnsnss » 08 Ağu 2019 00:44

Ozan İLGÜN yazdı:Rica ederim. Fırsatım olursa sendkeys kullanmadan yapar gönderirim.

eğer böyle bir iyilik yaparsanız çok sevinirim
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Dropdown Menü Tıklamıyor

İleti#10)  Ozan İLGÜN » 08 Ağu 2019 07:37

Set gunler = doc.getElementById("dayId")
gunler.Value = "10.08.2019"
doc.parentWindow.Window.execScript "changeDay('" & "10.08.2019" & "');"

Bu şekilde çalışıyor.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#11)  srcnsnss » 08 Ağu 2019 22:21

Ozan İLGÜN yazdı:Set gunler = doc.getElementById("dayId")
gunler.Value = "10.08.2019"
doc.parentWindow.Window.execScript "changeDay('" & "10.08.2019" & "');"

Bu şekilde çalışıyor.


Hocam elinize sağlık iyiki sizin gibi yardımsever insanlar var. Ben tam pes edecektim projeyi iptal edecektim sonra bu mesajınızla işlere tekrar döndüm.

Yapmak istediğim şey spordb sitesine benzer bir mobil uygulama, bilgisayar programı ve web sitesi hazırlamak.. İşin açığı bana 6-7 kuponda bi tutan 3.00 oran imkanı verirse martingale sistemiyle kendimde kazanmayı planlıyorum. Spordb sitesindeki istatistikler 3-4 kuponda bi 3 oranı tutturuyo. Bizim yaptığımız şeyde daha yenilikçi özellikler var mesela filtrelenen verilerdeki maçların ne kadarı süpriz bitmiş ne kadarı olası bitmiş onu bile söylüyor. Eğer vba işini tam çözersem futbolcu istatistiklerinide çekip ihtimal yüzdelerine dahil etmeyi planlıyorum.. Bu işini meyvesini yemeye başladığımda ilk aklıma siz geleceksiniz. Tekrar çok teşekkür ederim. Bir başka yardım forumunda görüşmek üzere :)
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Dropdown Menü Tıklamıyor

İleti#12)  Ozan İLGÜN » 08 Ağu 2019 22:23

Rica ederim. İyi akşamlar.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Dropdown Menü Tıklamıyor

İleti#13)  srcnsnss » 08 Ağu 2019 22:31

Ozan İLGÜN yazdı:Rica ederim. İyi akşamlar.


Son olarak ben profesyonel grafik tasarımcısıyım son 5 yılım grafiker olarak geçti diyebilirim. Son 3 yıldır da bir özel bi şirkette dijital grafikle uğraştım. Web sitenizde vs. grafik tasarımı gibi gereksinimleriniz olursa benimle iletişime geçebilirsiniz. Sercan Şenses diye aratın instagram'da facebook'da bulursunuz.

Size de iyi akşamlar :)
Resim
Kullanıcı avatarı
srcnsnss
Yeni Başlamış
 
Kayıt: 26 Kas 2014 08:55
Meslek: Girişimci
Yaş: 23
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


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