Excel dış veri alma

[jack_extreme]

excelden dış veri alma kısmında web sayfasındaki fiyatları almaya çalışıyorum fakat bi türlü beceremedim aşağıdaki kodu bir yazıyorum bi yerden yardım alarak yazdım
exceli xlsb uzantısıyla kayıt ettim ama bi türlü çalışmıyor
konuyla ilgili yardımcı olabilecek varsa çok sevinirim

Sub Makro ()
Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "http://www.perkotek.com/bayi-girisi/personel-devam-kontrol-sistemleri/1/yuz-tanima-terminalleri/urun-detay/9638/magic-face-mf-870-yuz-tanima-sistemi/"

Do: DoEvents: Loop Until ie.ReadyState = 4
son kullanici = ie.Document.getElementsByClassName("p-info")(1).innerText
bayi = ie.Document.getElementsByClassName("p-info")(2).innerText
ActiveSheet.Range("A1").Value = son kullanıcı
ActiveSheet.Range("B1").Value = bayi
ie.Quit

End Sub

 

[askm]

Siz işlemi ters yapıyorsunuz gibi geldi bana. Normalde A1 ve B1 deki kullanıcı adını internet sayfasına girmeniz gerekirken siz burdaki veriyi çekmeye çalışıyorsunuz gibi yazmışsınız. Bizlerin yardımcı olması için kullanıcı kodu ve şifreyi bilmesi gerekir ki bu aşamayı atlayabilelim ve fiyatların olduğu kısma girebilelim. Oradaki sayfadan veri çekebilelim.