سلام به همه
من یه فرم دارم که با زدن یک دکمه پنجره انتخاب فایل (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