With fDialog

.AllowMultiSelect = False
.Filters.Add "Excel File", "*.xls"
.Filters.Add "Excel File", "*.xlsx"

If .Show = True Then

'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
' Label3.Caption = varFile

Const acImport = 0
Const acSpreadsheetTypeExcel9 = 8

''This gets the sheets to new tables
GetSheets varFile

Next
MsgBox ("Excel dosyasından veri aktarımı tamamlandı!")
End If
End With

On Error Resume Next

---

Sub GetSheets(strFileName)
'Requires reference to the Microsoft Excel x.x Object Library

Dim objXL As New Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Object

'objXL.Visible = True

Set wkb = objXL.Workbooks.Open(strFileName)

For Each wks In wkb.Worksheets
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"veriler", strFileName, False, wks.Name & "$"
Next