نقل قول نوشته شده توسط rezekh مشاهده تاپیک
باسلام خدمت دوستان
من با استفاده از این کد توانستم از فایل اکسل به اکسس انتقال دهم اشکالی که وجودداره نام گذاری فیلدها با حرف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
سلام
کد انتقال رو با TRUE ست کن در این صورت هدرهای فایل اکسل هم منتقل میشه:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "myImport", vrtSelectedItem,True