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