kendinize uyarlayabilirsiniz
Sub XLBagla()
Dim tdf As DAO.TableDef
Dim strBaglanti As String
Dim AccAd As String
Dim ExlAd As String
Dim strKey As String
Dim DatabaseName As String:
' Bağlantıyı kur
strXlYol = CurrentProject.Path & "\ListViewEtrade.xlsm"
strBaglanti = "Excel 12.0 Xml;HDR=No;IMEX=0;ACCDB=No;DATABASE=" & strXlYol
ExlAd = "TrhDnm$" ' bağlanacak tablonun exceldeki adı, sayfa adının sonuna $ eklenerek yazılır
AccAd = "TrhDnm" ' bağlanacak tablonun accessteki adı
'aşağıdaki blok tablo varsa siler
On Error Resume Next
DoCmd.RunSQL "drop table " & AccAd
On Error GoTo 0
Set tdf = CurrentDb.CreateTableDef(AccAd)
tdf.Connect = strBaglanti
tdf.SourceTableName = ExlAd
CurrentDb.TableDefs.Append tdf ' tablo accesse eklenir
On Error GoTo 0
End Sub