[srcnsnss]

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.

[Ozan İLGÜN]

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.

[srcnsnss]

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

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


[srcnsnss]

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?

[srcnsnss]

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.

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


[Ozan İLGÜN]

Vbada sendkeys komutları var. Şu an telefonda olduğum için bulamıyorum. Forumda ararsan bulursun.

[srcnsnss]

Vbada sendkeys komutları var. Şu an telefonda olduğum için bulamıyorum. Forumda ararsan bulursun.

tamda o şekilde çözdüm hocam elinize emeğinize sağlık..

[Ozan İLGÜN]

Rica ederim. Fırsatım olursa sendkeys kullanmadan yapar gönderirim.

[srcnsnss]

Rica ederim. Fırsatım olursa sendkeys kullanmadan yapar gönderirim.

eğer böyle bir iyilik yaparsanız çok sevinirim

[Ozan İLGÜN]

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

Bu şekilde çalışıyor.

[srcnsnss]

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

[Ozan İLGÜN]

Rica ederim. İyi akşamlar.

[srcnsnss]

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