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