Excele Web'ten Veri Almada "remote Server Machine Does Not Exist Or Is Unavailable"

19/03/2022, 17:41

tarkanaykın

merhaba arkadaşlar, patronum web sayfasındaki bir veriyi excelde görmek istediğini söyledi, ben de bu konu da bayağı bi araştırma yapıp kendime uyarlamaya çalıştım ancak bir yerde "the remote server machine does not exist or is unavailable" hatası alıyorum, acaba şu (0) olayı yüzünden mi? (0) ne anlama geliyor bilsem ona göre işlem yapacağım, yardımcı olur musunuz, teşekkürler

Sub Düğme1_Tıkla()

Dim ie As Object






Set ie = CreateObject("InternetExplorer.Application")


ie.Visible = False

ie.navigate "https://www.dmo.gov.tr/Arama?s=tansiyon%20cihaz%C4%B1"

Application.Wait Now + TimeSerial(0, 0, 5)

Range("d1").Value = ie.Document.getelEmentsByClassName("price-current text-center")(0).innertext ' o hatayı burada alıyorum

ie.Quit


End Sub
20/03/2022, 12:04

userx

Sayın @tarkanaykın alttaki kodu dener misin?
Sub Düğme1_Tıkla()
Range("d1").Value = ""
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "https://www.dmo.gov.tr/Arama?s=tansiyon%20cihaz%C4%B1"
  Application.Wait Now + TimeSerial(0, 0, 6)
  Range("d1").Value = ie.Document.getElementsByClassName("prices text-center")(0).innertext
  ie.Quit
  Set ie = Nothing
End Sub
20/03/2022, 12:54

tarkanaykın

sayın userx ilginize teşekkürler ama hala aynı hatayı veriyor, benim bilgisayarda mı bi sorun var acaba?
20/03/2022, 13:25

userx

(20/03/2022, 12:54)tarkanaykın yazdı: sayın userx ilginize teşekkürler ama hala aynı hatayı veriyor, benim bilgisayarda mı bi sorun var acaba?

20/03/2022, 13:49

tarkanaykın

oldu çok teşekkürler, benim pc de hata varmış,