excel webden veri alma

[fkalelinet]

<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)

[fkalelinet]

If InStr(ie.document.body.innerhtml, "polite") Then
şeklinde denedim çalışıyor gibi. teşekkür ederim.