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ış .
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."
(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)
Anladım yardımınız için teşekkür ederim.
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 Sub
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.
