• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Html Parse Edilmesi

Katılım
15 Şubat 2007
Mesajlar
64
Excel Vers. ve Dili
Excel 2003-İngilizce
Sn. Ripek'in şu başlıktaki dosyasını benim işyerindeki bilgisayarımda çalışmadığından SSK'nın sitesine işyeri kodu ve şifresi ile giriş yaptıktan sonra çalışan bu adresteki sorgulama ekranına uyarlamaya çalıştım. Dosya kendiliğinden sorgulama sayfasına gidip, veriyi girip sonuç sayfasını getiriyor ancak gelen verileri parse edip excel' e getirtemedim. Bu başlıktaki yine sn. Ripek'in dediği şeyi yaparak ekte verdiğim sayfada verilerin olduğu tabloyu 4. olarak saydım ama denemelerim sonuçsuz kaldı. Aşağıda verdiğim makroyu nasıl değiştirmem gerekiyor?
Sağolun..
Kod:
        Set HTML_Body = IE.document.body
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        Set MyTable = HTML_Tables(0)
         
        Range("b5") = MyTable.Rows(0).Cells(0).InnerText
        Range("c5") = MyTable.Rows(0).Cells(1).InnerText
        Range("d5") = MyTable.Rows(0).Cells(2).InnerText
        Range("e5") = MyTable.Rows(0).Cells(3).InnerText
        Range("f5") = MyTable.Rows(0).Cells(4).InnerText
        
        Range("b4") = MyTable.Rows(1).Cells(0).InnerText
        Range("c4") = MyTable.Rows(1).Cells(1).InnerText
        Range("d4") = MyTable.Rows(1).Cells(2).InnerText
        Range("e4") = MyTable.Rows(1).Cells(3).InnerText
        Range("f4") = MyTable.Rows (1).Cells(4).InnerText
 
Sizin yapmak istediğini uygulama ile benim yaptığım arasında gerek html tablo olsun, gerekse tablonun hücreleri olsun farklar bulunmaktadır.

Eğer benim yaptığım uygulama bilgisayarınızda kesin bir şekilde çalışmıyorsa, uygulamanın yeniden tasarlanıp yapılması gerekiyor.

Açıkcası programın bilgisayarınızda çalışmamasını merak ettim.İşyerinizin internet güvenlik ayarlarından ise yapacağınız uygulamada çalışmayabilir.
 
Aslında çalışıyor, ilk kişiyi bulup 2.kişi için tekrar sayfayı açmaya çalıştığında sayfa "lütfen ileri geri tuşlarını kullanmayınız sayfayı refresh yapın" gibilerinden bi yanıt veriyor dolayısıyla 2. kişiden sonrasını getirmiyor ve sorgulama sayfası çerezleri silip ie yi tekrar başlatmadıkça aynı yanıtı veriyor.
Benim sormamdaki asıl amaç olayı öğrenmeye çalışmaktır. Tabloların hangisinde veri olduğunu nasıl buluyosunuz, tablolarda "name" "class" gibi atamalar yoksa nasıl veriyi getirtiyosunuz gibi. Merak sadece...
 
Peki Internet Explorer mi? Yoksa Mozilla mı kullanıyorsunuz?
 
Kodda aşağıda söylediğin yeri "True" yaptım;
.Visible = False 'True olursa web sayfası görüntülenir.
Sayfanın gösterdiği mesaj;
Lütfen tarayıcınızın F5 ('Yenile') fonksiyonunu kullanmayınız !
Lütfen tarayıcınızın 'İleri' ve 'Geri' butonlarını kullanmayınız !
Devam etmek için soldaki 'Sorgulama' linkine tıklayınız.
 
Admin değilim ve group policy'lerle sıkışmış vaziyette zorunlu olarak ie varsayılan olarak duruyor ve yukarda belirttiğim mesaj ie'de çıkıyor, zaten makronuzu çalıştırdığımda direk ie yi açıyor ama ben normalde firefox kullanıyorum.
 
Firefox'dan kaynaklanabilir.
Siz aynı dosyayı sadece ie olan bir bilgisayarda deneyebilirminiz?
 
Firefox bulunmayan bilgisayarda da aynı mesajı aldım. Zaten o sayfadan manuel sorgulama yaparkende aynı durumla karşılaşıyoruz.
 
Büyük ihtimalle ie ayarlarından kaynaklanıyor sanırım.

Cookies ayarlarınına bakınız...
 
Geri
Üst