+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Web'ten Altin Fiyatlarını Çekme (/konu-web-ten-altin-fiyatlarini-cekme.html)
RE: Web'ten Altin Fiyatlarını Çekme - atoykan - 18/11/2020
Sizin konunuz ile ilgili olarak nerede ise birebir aynı soru mevcut. Ozan hocam onu da çözümlemiş ve paylaşmış, @berduş üstad da bu çözüm linkini incelemeniz ve çalışmanıza ışık tutması açısından sizinle paylaşmış .
RE: Web'ten Altin Fiyatlarını Çekme - sertac76 - 18/11/2020
Cevapladığını biliyorum. Onun üzerine yazdım.
Sadece tek bilgi geliyor. benim istediğim tüm altın fiyatlarını tabloya aktarma olacaktı.
"Sayın ozanakkaya elinize sağlık tam istediğim şekilde olmuş. Ancak diğer altın bilgilerini toplu alamayız mı? Burada sadece has altın geliyor."
RE: Web'ten Altin Fiyatlarını Çekme - ozanakkaya - 18/11/2020
(18/11/2020, 15:45)sertac76 yazdı: Sayın ozanakkaya elinize sağlık tam istediğim şekilde olmuş. Ancak diğer altın bilgilerini toplu alamayız mı? Burada sadece has altın geliyor.
Belirttiğiniz sayfa internet explorer'da ve webbrowserda görünmüyor. Bu sayfaya veri aktaran script haremaltin. com dışında çalışmıyor. (cross-origin)
RE: Web'ten Altin Fiyatlarını Çekme - sertac76 - 18/11/2020
Anladım yardımınız için teşekkür ederim.
RE: Web'ten Altin Fiyatlarını Çekme - feraz - 19/11/2020
Alternatif olsun.
Excele power query ile altın fiyatı aldırdım(sadece HAS ALTIN).
Access teki düğmeye tıklayınca kapalı exceldeki sorgu çalışıp veriler geliyor.
En sonki link için power query bulamadı internet sayfadaki Tabloları.
Private Sub Getir_Click()
Dim wb As Object, ad As String, alis As Double, veris As Double
Set wb = GetObject(CurrentProject.Path & "\altin.xlsx")
With wb.Sheets("Sayfa1")
.Range("Table_0[Ad]").ListObject.QueryTable.Refresh BackgroundQuery:=False
ad = .Range("A2").Value
alis = .Range("B2").Value
veris = .Range("C2").Value
End With
CurrentDb.Execute "INSERT INTO Tbl_Altin ([AltýnTuru],[alis], [satis]) VALUES ('" & ad & "', '" & alis & "','" & veris & "')"
CurrentDb.TableDefs.Refresh
Form_Frm_Altin_Ust.Refresh
wb.Close False
Set wb = Nothing
End SubRE: Web'ten Altin Fiyatlarını Çekme - sertac76 - 19/11/2020
Feraz bey has altın değil tümünü almak istiyorum. Nasıl ilerleyeceğim bilemiyorum. Bu siteden başkaları bilgi alıyor diye biliyorum.