yalnız veritabanınız ile exceldeki alanlar uyumlu olmalı
ayrıca tablonuzdaki alan adı veri1,veri2,veri3 ise Exceldeki alan adları da veri1,veri2,veri3 gibi olmalı
Dim StrAdres As String
Dim f As Object 'FileDialog
Set f = Application.FileDialog(3) 'msoFileDialogFilePicker
StrAdres = CurrentProject.Path & "\"
With f
' .AllowMultiSelect = True 'default
.InitialFileName = StrAdres
' Specify filters
' .Filters.Clear
' .Filters.Add "All Files", "*.*"
.Show
Dim varFile As Variant
For Each varFile In .SelectedItems
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Deneme1", varFile, True 'MsgBox Trim(varFile)
Next
End With