web sayfasındaki exceli açan linki makro ile açma hk.

[up2you]

web sayfasında "Excel'e Aktar" adında bir kısayol var. Sayfa kaynak koduna baktığımda ;

href="javascript:__doPostBack('SearchGrid$_ctl17$_ctl0','')">Excell'e Aktar</a>

şeklinde tanımlanmış satırlar var.

Bu sayfaya kadar excel içine gömdüğüm makro ile geldim. Fakat bu kısayola kliklendiğinde açılan excel dosyasını makro ile açtıramadım.

Kullandığım kod;

Sub excele_aktar()
Dim ex As Object
Set ex = CreateObject("internetexplorer.application")
ex.navigate "https://websayfaadresi.com"
Do While ex.Busy: DoEvents: Loop
Do While ex.ReadyState <> 4: DoEvents: Loop
ex.Visible = True
With ex.Document.all
.ctl00_PlaceHolderMain_login_UserName.Value = "xxxx"
.ctl00_PlaceHolderMain_login_password.Value = "yyyyy"
.ctl00_PlaceHolderMain_login_login.Click
ex.navigate "https://gdfgdfgf.com.tr/yyy/hhh.aspx"
Do While ex.Busy: DoEvents: Loop
Do While ex.ReadyState <> 4: DoEvents: Loop
With ex.Document.all
.btnSearch.Click
End With
End With
Set ex = Nothing
End Sub
Yardımlarınız için şimdiden teşekkürler,
Saygılar