Webden Veri Alma

[fthtls]

Arkadaşlar aşağıdaki makroyla webden veri alıyorum.

Sub VeriAl()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://192.168.200.23/renderapp.php", Destination:=Range("$A$1"))
.Name = "renderapp"
...
...

End With
End Sub

Fakat URL'de login sayfası var ve dolayısıyla kullanıcı adı ve şifre istiyor.

Aşağıdaki kodla internet explorer'dan login işlemini gerçekleştirebiliyorum.

Sub AutoLogin()
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate ("http://192.168.200.23/login.php")
Do
If IE.readyState = 4 Then
IE.Visible = True
Exit Do
Else
DoEvents
End If
Loop

IE.document.forms(0).all("fm_username").Value = "uf"
IE.document.forms(0).all("fm_password").Value = "uf"
IE.document.forms(0).submit
End Sub

Buna benzer bir login kodunu veri alırken kullandığım makroya gömmem lazım. Çünkü 2. makroyla internet explorer'dan login olsam da veri çekmek için Excel'in kendi iç mekanizmasıyla login olması gerekiyor, IE ile değil.

Bu konuda yardımcı olabilecek var mı acaba?

 

[fthtls]

Arkadaşlar bilgisi olan yok mu acaba?