AccessTr.neT

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

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

sayın userx ilginize teşekkürler ama hala aynı hatayı veriyor, benim bilgisayarda mı bi sorun var acaba?

(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?

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