Arkadaslar merhaba,

uzun zamandir ugrastim fakat sonuc alamadim.

https://www.haremaltin.com/canli-piyasal...-fiyatlarihttps://www.haremaltin.com/canli-piyasal...-fiyatlari


sayfasindan has altin satis fiyatini nasil textbox a alabilirim. yardimci olursaniz sevinirim.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

(18/11/2020, 13:06)ozanakkaya yazdı: İnceleyip olumlu/olumsuz bildirimde bulununuz.

Hocam yardim icin tesekkur ederim, fakat malesef calismadi modul de sleep kisminda bir hata var veri alamiyor.
vaktiniz olunca bakarsaniz sevinirim/ tesekkurler

Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Dim bekle, zaman

bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Option Compare Database

Option Explicit

Private Sub Komut2_Click()



Dim bekle, zaman

Const GLink As String = "https://www.haremaltin.com"



Dim GVeri

Dim appIE As Object

Set appIE = CreateObject("internetexplorer.application")



With appIE

    .Navigate GLink

    .Visible = False

End With



Do While appIE.Busy: DoEvents: Loop



bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Loop





Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")



Me.Metin0 = GVeri.innerhtml



appIE.Quit

Set appIE = Nothing





End Sub

---

Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921

(19/11/2020, 02:00)feraz yazdı: Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Dim bekle, zaman

bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Option Compare Database

Option Explicit

Private Sub Komut2_Click()



Dim bekle, zaman

Const GLink As String = "https://www.haremaltin.com"



Dim GVeri

Dim appIE As Object

Set appIE = CreateObject("internetexplorer.application")



With appIE

    .Navigate GLink

    .Visible = False

End With



Do While appIE.Busy: DoEvents: Loop



bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Loop





Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")



Me.Metin0 = GVeri.innerhtml



appIE.Quit

Set appIE = Nothing





End Sub

---

Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921

Tesekkur ederim.

simdi calisti, be veriyi komut dugmesine basmadan nasil alabilirim, yani sayfadaki fiyat degisince textbox taki da degismesi icin ne yapmak gerekir.

(19/11/2020, 02:11)orba yazdı:

(19/11/2020, 02:00)feraz yazdı: Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Dim bekle, zaman

bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Option Compare Database

Option Explicit

Private Sub Komut2_Click()



Dim bekle, zaman

Const GLink As String = "https://www.haremaltin.com"



Dim GVeri

Dim appIE As Object

Set appIE = CreateObject("internetexplorer.application")



With appIE

    .Navigate GLink

    .Visible = False

End With



Do While appIE.Busy: DoEvents: Loop



bekle = Time

bekle = DateAdd("s", 2, bekle)

Do Until zaman >= bekle

zaman = Time

Loop





Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")



Me.Metin0 = GVeri.innerhtml



appIE.Quit

Set appIE = Nothing





End Sub

---

Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921

Tesekkur ederim.

simdi calisti, be veriyi komut dugmesine basmadan nasil alabilirim, yani sayfadaki fiyat degisince textbox taki da degismesi icin ne yapmak gerekir.

Rica ederim.
sayfadaki verinin değiştiğinde formda birşey tetikleyecekki veri gelsin.
Formun Timer olayı için her bir saniye yada her 2 saniyede kod çalışırsa olabilir.
Yani formun Timer olayı ayarlanması gerek bence mantıken.