web sayfasından veri çekerken hata

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

web sayfasından veri çekerken hata

İleti#1)  karisma » 02 Ağu 2019 15:47

Arkadaşlar iyi çalışmalar. Web sayfasından veri çekiliyor fakat birinci click olayından sonra sayfa değiştiği için ikinci sayfada da click olayından sonra Object variable Or with block variable not set hatası vermektedir. Yardımlarınızı bekliyorum.
Kod: Tümünü seç
Dim IE As Object
    ' Dim IE As Object
    Set IE = New InternetExplorerMedium
     With IE
        .Visible = True
        .Navigate "xxxxxxxxxxxxxx.aspx"
       
        Do While Not .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        .Document.getElementsByName("xxxxx")(0).Value = Sheets("Menu").Range("AH1")
        .Document.getElementsByName("xxxxx")(0).Value = Sheets("Menu").Range("AH2")
             
       .Document.all.Item("btnLogin").Click
       
       .Navigate "xxxxxxxxxxxxxxxxxxx.aspx"
       
       
       
   
       
       
        .Document.all.Item("mainNavLink").Click
       

        Do While Not .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
       
End With
Kullanıcı avatarı
karisma
Yeni Başlamış
 
Adı Soyadı:ahmet karışma
Kayıt: 09 Mar 2013 12:48
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: web sayfasından veri çekerken hata

İleti#2)  askmadige34 » 03 Ağu 2019 12:20

İkinci navigateden sonra beklemeden click yapmışsın. Sayfa yüklenmediği için hata veriyor olabilir. Sayfa url verirsen bakarız.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1736
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: web sayfasından veri çekerken hata

İleti#3)  Ozan İLGÜN » 05 Ağu 2019 08:21

Dosyanızı göremediğim için birşey diyemiyorum ancak şu şekilde deneyin.
Kod: Tümünü seç
Dim IE As Object
    ' Dim IE As Object
    Set IE = New InternetExplorerMedium
     With IE
        .Visible = True
        .Navigate "xxxxxxxxxxxxxx.aspx"
       
        Do While Not .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        .Document.getElementsByName("xxxxx")(0).Value = Sheets("Menu").Range("AH1")
        .Document.getElementsByName("xxxxx")(0).Value = Sheets("Menu").Range("AH2")
             
       .Document.all.Item("btnLogin").Click
        Do While .Busy: DoEvents: Loop
        Do Until .ReadyState = 4: DoEvents: Loop
       .Navigate "xxxxxxxxxxxxxxxxxxx.aspx"
       
       
       
   
       
       
        .Document.all.Item("mainNavLink").Click
       

        Do While Not .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
       
End With
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: web sayfasından veri çekerken hata

İleti#4)  ramazangul_27 » 08 Ağu 2019 17:06

Merhaba. Bir internet sitesinden kopyalama yapıp excele yapistirdigimda tüm veriler tek sütuna yukarıdan aşağıya yapışıyor. Bu konuyla ilgili bilgisi olan var mıdır? Not: özel yapıştır vb... yapıştırma seçenekleri ile olmuyor.
İyi çalışmalar....
Kullanıcı avatarı
ramazangul_27
 
Adı Soyadı:ramazan gul
Kayıt: 05 Mar 2014 17:16
Konum: adana
Meslek: tekniker
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: web sayfasından veri çekerken hata

İleti#5)  Ozan İLGÜN » 08 Ağu 2019 18:14

Bazı web siteleri bu kopyalamaların önüne geçmek için tablo yerine div etiketi kullanıyor. Kopyala yapıştır yapınca sütun ve satırları algılamamasını sağlıyorlar. Elementleri döndürüp çekebilirsiniz. Kaynak kodunu görmeden başka bir şey diyemem.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: web sayfasından veri çekerken hata

İleti#6)  ramazangul_27 » 08 Ağu 2019 20:05

Kodlama vb... konularda bilgi sahibi değilim. Ozan bey rica etsem ekteki excel dosyasına bir göz atabilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ramazangul_27
 
Adı Soyadı:ramazan gul
Kayıt: 05 Mar 2014 17:16
Konum: adana
Meslek: tekniker
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: web sayfasından veri çekerken hata

İleti#7)  Ozan İLGÜN » 09 Ağu 2019 08:12

Kopyala yapıştır ile aldığınız veri istediğiniz formatta gelmez çünkü tablonun yapısı işi zorlaştıracak şekilde çift satırlı ayarlanmış. Kaldı ki verileri alsanız bile tabloda oran kısımları var onlar düzgün gelmez .
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2887
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: web sayfasından veri çekerken hata

İleti#8)  ramazangul_27 » 09 Ağu 2019 20:12

Anladım Ozan Bey. Kopyala yapıştır dışında yapabileceğimiz bir şey varsa yardımcı olabilir misiniz?
Kullanıcı avatarı
ramazangul_27
 
Adı Soyadı:ramazan gul
Kayıt: 05 Mar 2014 17:16
Konum: adana
Meslek: tekniker
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

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

Bumerang - Yazarkafe