وارد کردن گروهی فایل اکسل به اکسس

[amiralex]

سلام به همه

من یه فرم دارم که با زدن یک دکمه پنجره انتخاب فایل (Dialog) باز میشه و یه فایل اکسل و وارد یه جدول میکنم

سوالم اینه: با چه کدی میتونم چندین فایل اکسل و همزمان وارد همون جدول کنم؟ یعنی لازم نباشه تک تک فایل اکسل و وارد جدول اکسس کنم؟

در حال حاضر از این گکد استفاده میکنم

Dim fd As FileDialog





Set fd = Application.FileDialog(msoFileDialogOpen)

Dim vrtSelectedItem As Variant





With fd

.ButtonName = "ÇäÊÎÇÈ"

        

.AllowMultiSelect = True

        

If .Show = -1 Then





For Each vrtSelectedItem In .SelectedItems





txtmasir.Value = vrtSelectedItem





Next vrtSelectedItem

Else

End If

End With





Set fd = Nothing





DoCmd.SetWarnings False

Dim strPath As String

Dim strSQL As String

strPath = txtmasir

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "VorodiDafater", strPath, True