باسلام خدمت دوستان
من با استفاده از این کد توانستم از فایل اکسل به اکسس انتقال دهم اشکالی که وجودداره نام گذاری فیلدها با حرفf1 است اگر بخواهم از سرنینر(نام فیلد) خود فایل اکسل استفاده گنم چکار کنم
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
پاسخ با نقل قول