Nöbetçi eczaneleri çektirmek hk

  • Konuyu başlatan Konuyu başlatan mdtmdt
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Tarihe göre sırala Oylamaya göre sırala
Merhaba,
Aşağıdaki kodları deneyiniz...
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(28 satır)
 

Ekli dosyalar

  • 1641931650073.webp
    1641931650073.webp
    1.3 KB · Görüntüleme: 53
Oyla 0 Olumsuz oyla
mdtmdt' Alıntı:
Yalnız dünün verilerini çekiyor bunu düzeltemiyoruz sanırım
Genişletmek için tıklayın ...
Veri çekilen sitenin aktif gün (bugün) ayarına bağlı bir durum, site hangi veriyi veriyorsa o alınıyor.
Alternatif olarak aşağıdaki kod kullanılabilir, deneyiniz...
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(39 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
@ÖmerBey hayırlı geceler.

For a = 1 To h.getElementById("nav-bugun").getElementsByclassname("row").Length - 1


Bu satırda makro hataya düşüyor. Bakma şansınız var mıdır.? Teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Merhaba,
Veri alınan site ile ilgili anlık bir problem olmuş olabilir mi?
Ben şimdi denedim hata vermeden çalıştı.
 
Oyla 0 Olumsuz oyla
ÖmerBey' Alıntı:
Veri çekilen sitenin aktif gün (bugün) ayarına bağlı bir durum, site hangi veriyi veriyorsa o alınıyor.
Alternatif olarak aşağıdaki kod kullanılabilir, deneyiniz...
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(39 satır)
Genişletmek için tıklayın ...
Üstad kolay gelsin. Bu makroyu module ekleyip çalıştırdığımızda
"Run-time error '438':
Object doesn't support this porperty or method gatası veriyor. Hata satırı olarak da For a = 1 To h.getElementById("nav-bugun").getElementsByclassname("row").Length - 1 gösteriyor.
İşlemi değişik zamanlarda tekrarladım. Office 2016 kullanıyorum .
 
Oyla 0 Olumsuz oyla
Açıkçası bilemedim...
Bir de aşağıdaki kodu deneyiniz.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(43 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst Alt