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