Const GLink As String = "http://bigpara.hurriyet.com.tr/kobi/dunya-emtia-borsalari/sxaggr-gumus-gram/"
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
Set GVeri = appIE.Document.querySelector(".kurBox span[class='value up']")
Me.Metin1 = GVeri.innertext
appIE.Quit
Set appIE = Nothing
Webden Veri Çekme
Bu Konudaki Yorumlar |
Webden Veri Çekme - Yazar: notrino - 13/08/2020, 10:47
RE: Webden Veri Çekme - Yazar: ozanakkaya - 13/08/2020, 12:24
RE: Webden Veri Çekme - Yazar: notrino - 13/08/2020, 12:34
RE: Webden Veri Çekme - Yazar: ozanakkaya - 13/08/2020, 12:42
RE: Webden Veri Çekme - Yazar: notrino - 13/08/2020, 12:51
RE: Webden Veri Çekme - Yazar: notrino - 13/08/2020, 20:12
RE: Webden Veri Çekme - Yazar: ozanakkaya - 13/08/2020, 21:13
RE: Webden Veri Çekme - Yazar: notrino - 13/08/2020, 21:39
RE: Webden Veri Çekme - Yazar: notrino - 14/08/2020, 17:57
RE: Webden Veri Çekme - Yazar: ozanakkaya - 16/08/2020, 19:47
|
Konuyu Okuyanlar: 1 Ziyaretçi