import گروهی فایل های اکسل به یک table اکسس

[akbar4028]

با سلام خدمت اساتید محترم لطفا بفرمایید چطوری می تونم تعداد زیادی فایل اکسل رو با open dialog file به تیبل اکسس import کنم . ضمنا در جستجو چیزی نصیبم نشد در صورت امکان نمونه یا لینک بذارید ممنون می شم

[akbar4028]

خودم پیدا کردم
Private Sub Command1_Click()
Dim fd As Object 'FileDialog
Set fd = Application.FileDialog(3)
Dim vrtSelectedItem As Variant
Dim xlFileName As Variant
Dim strFilePathAndFileName As String
Dim strFileName As String
Dim strFileNameNoExt As String
With fd
.InitialFileName = "C:\"
.Filters.Clear
.Filters.Add "Spreadsheets", "*.xls; *.xlsx", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "myImport", vrtSelectedItem, False
Next vrtSelectedItem
End If
End With
Set fd = Nothing

End Sub