Gönderen Konu: excel webden veri alma  (Okunma sayısı 114 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı fkalelinet

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: fatih kaleli
  • Doğum Yılınız: 1970
  • İl / İlçe: kocaeli/izmit
excel webden veri alma
« : 15 Ağustos 2019, 08:32:43 »
<div id="formDialog:exceldenKopyalaAlaniBosDialog" class="ui-dialog ui-widget ui-widget-content ui-corner-all ui-shadow ui-hidden-container dialog_style_warn ui-draggable" style="width: 500px; height: auto; left: 543.5px; top: 286.5px; z-index: 1004; display: none;" role="dialog" aria-labelledby="formDialog:exceldenKopyalaAlaniBosDialog_title" aria-hidden="true" aria-live="polite">

aria-live="off" ifadesi aria-live="polite" oluyor.

bunun için de normal kullandığım kodlarda değişiklikler yaptım ama aşağıdaki koda uyarlayıp kaynak kodda herhangi bir yerde polite kelimesini bulunca goto hata yaptıramadım. aşağıdaki kod ve bir çok deneme kodum maalesef çalışmadı. eğer aria-live değeri polite ise git hata şeklinde kod oluşturmaya çalışıyorum.

'######################## EKSİK VERİ TAMAM BUTON 2 #####################
Set objCollection = IE.Document.getElementsByTagName("div")
i = 0
Do While i < objCollection.Length
If objCollection(i).innerText = "polite" Then
FnWait (2)
GoTo hata
Exit Do
End If
i = i + 1
Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
FnWait (1)

Çevrimdışı fkalelinet

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: fatih kaleli
  • Doğum Yılınız: 1970
  • İl / İlçe: kocaeli/izmit
Ynt: excel webden veri alma
« Yanıtla #1 : 15 Ağustos 2019, 10:29:46 »
If InStr(ie.document.body.innerhtml, "polite") Then
şeklinde denedim çalışıyor gibi. teşekkür ederim.