[Yardım]  web sitesindeki listeden seçim yapma

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

web sitesindeki listeden seçim yapma

İleti#1)  snf124 » 20 Eyl 2022 12:57

Merhabalar;
e-okul sisteminde sınıf/şubelere öğretmen atamaya çalışıyorum. Açılır listeden sınıf seçmem gerekiyor .Aşağıdaki kodlarla bir türlü sınıf şube seçtiremedim. "Listele" butonuna tıklayabiliyorum.Ekran görüntüsü ve kodlarımı paylaşıyorum. Yardım edebilir misiniz.
Kod: Tümünü seç
Sub OgretmenAta()
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim HTMLTable As MSHTML.IHTMLElement
    Dim TableRow As MSHTML.IHTMLElement
    Dim TableCell As MSHTML.IHTMLElement

[A2].Select

   
Set Rky = CreateObject("internetexplorer.application")
With Rky
    Rky.Navigate "http://e-okul.meb.gov.tr"
    Rky.Visible = True
Application.Wait (Now + TimeValue("0:00:30"))
   .Navigate "https://e-okul.meb.gov.tr/IlkOgretim/OKL/IOK09004.aspx"
       
        Do While .busy: DoEvents: Loop
        Do While Not .readystate = 4: DoEvents: Loop
For i = 2 To Range("A65536").End(xlUp).Row
        Application.Wait (Now + TimeValue("0:00:05"))

Dim tbl As HTMLTable
Set tbl = Rky.document.getElementById("Table2")

For Each trr In tbl.getElementsByTagName("tr")
    For Each tdd In trr.getElementsByTagName("td")
        For Each Table In tdd.getElementsByTagName("table")
            For Each tr In Table.getElementsByTagName("tr")
                For Each td In tr.getElementsByTagName("td")
                    For Each se In td.getElementsByTagName("select")
                        For Each op In se.getElementsByTagName("option")
                                If op.Value = "18242513" Then
                                    op.Click
                                End If
                        Next op
                    Next se
                Next td
            Next tr
        Next Table
    Next tdd
Next trr
    .document.getElementById("btnListele").Click
Next i
End With
End Sub


EOKUL.jpg
e okul 2.jpg
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: web sitesindeki listeden seçim yapma

İleti#2)  snf124 » 20 Eyl 2022 13:41

Resimlerde tam belli olmuyo diye zip şeklinde yüklüyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

Cevap: web sitesindeki listeden seçim yapma

İleti#3)  snf124 » 23 Eyl 2022 13:20

Kod: Tümünü seç
Set a = .Document.getElementsByName("ddlSinifiSubesi")
    For Each b In a
        For Each op In b.getElementsByTagName("OPTION")
            If op.innerText = Sayfa1.Cells(i, 4).Value Then
                op.Selected = True
                Exit For
                Do While .busy: DoEvents: Loop
                Do While Not .readystate = 4: DoEvents: Loop
                Application.Wait (Now + TimeValue("0:00:01"))
            End If
        Next op
    Next b


Bu kodlarla seçimi yapabildim. Lazım olan arkadaş olursa diye paylaşıyorum. Kolay gelsin herkese bye --)(
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe