Web Sayfasından Veri Çekmek

[Rheago]

Merhaba arkadaşlar,

Aşağıdaki kod ile belirlediğim web sitesine giriş yapıyorum İnternet Explorer ile. Fakat giriş yaptıktan sonra haliyle sayfanın html kodları değiştiği için 2. bir işlem yaptıramıyorum. Bunu nasıl yapabilirim? Sayfa değiştikten sonra sırasıyla:

1-data-original-title="Raporu yenile" değerine sahip butona tıklayacak.
2-Tıkladıktan bir süre sonra ilgili web sayfası tablo oluşturuyor.
3- id="ongoruTablosuRaporTable" bu id ye sahip table ı excele çekecek.

Sub giris()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://websitesi.com"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.document.all("username").Value = "xxxx@xxx.com"
IE.document.all("password").Value = "12345"
IE.document.forms(0).submit


End With


Set IE = Nothing
Set HTML_Body = Nothing


End Sub