Web'te veri eklerken girilen veriyi algılamaması

[işsiz123]

Merhabalar Aşağıdaki kod ile web teki tarihi değiştirdiğimde tarih yerine yazılıyor ama tablo tarihe göre değişmiyor. istediğim tarihteki tablo gelmiyor.

Sub Fill_Form()
    Set ie = CreateObject("InternetExplorer.Application")
 
    With ie
        .Visible = True
        .navigate URL:="https://www.mardineczaciodasi.org.tr/Nobet"
   With ie
       
        Do Until .readyState = 4
            DoEvents
        Loop
   
          Set mytextfield2 = .document.all.Item("baslangic")
        mytextfield2.Value = "2018-12-20"
    End With
End With
End Sub

 

[askm]

Aşağıdaki şekilde deneyin bir.

Sub Fill_Form()
    Set IE = CreateObject("InternetExplorer.Application")
 
   With IE
        .Visible = True
        .navigate URL:="https://www.mardineczaciodasi.org.tr/Nobet"
       
        Do Until .readyState = 4
            DoEvents
        Loop
        gun = 19
        ay = Month(Date)
        yil = Year(Date)
        tarih = DateSerial(yil, ay, gun) '"20.12.2018"
        .Document.getElementById("baslangic").Value = Format(tarih, "yyyy-mm-dd")
        .Document.getElementById("baslangic").Focus
        Set tags = IE.Document.getElementsByClassName("day")
For Each tagx In tags
    If tagx.innertext = CStr(gun) Then
        tagx.Click
        Exit For
    End If
Next

End With
End Sub

 

[Haluk]

Mardin ve diğer 4 adet Eczaci Odasi (Balıkesir, Osmaniye, Mersin, Hatay) ile ilgili bilgilerin web'den alınmasına ilişkin çalışma aşağıdaki linktedir.

https://www.excel.web.tr/threads/xmlhttp-ile-noebetci-eczane-bilgileri.174921/

.

 

[işsiz123]

Aşağıdaki şekilde deneyin bir.

Sub Fill_Form()
    Set IE = CreateObject("InternetExplorer.Application")

   With IE
        .Visible = True
        .navigate URL:="https://www.mardineczaciodasi.org.tr/Nobet"
      
        Do Until .readyState = 4
            DoEvents
        Loop
        gun = 19
        ay = Month(Date)
        yil = Year(Date)
        tarih = DateSerial(yil, ay, gun) '"20.12.2018"
        .Document.getElementById("baslangic").Value = Format(tarih, "yyyy-mm-dd")
        .Document.getElementById("baslangic").Focus
        Set tags = IE.Document.getElementsByClassName("day")
For Each tagx In tags
    If tagx.innertext = CStr(gun) Then
        tagx.Click
        Exit For
    End If
Next

End With
End Sub

Teşekkürler.

 

[işsiz123]

Mardin ve diğer 4 adet Eczaci Odasi (Balıkesir, Osmaniye, Mersin, Hatay) ile ilgili bilgilerin web'den alınmasına ilişkin çalışma aşağıdaki linktedir.

https://www.excel.web.tr/threads/xmlhttp-ile-noebetci-eczane-bilgileri.174921/

.

Haluk bey çok teşekkürler ama altın üye olmadığım için indiremiyorum.