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.