اشکال در import اکسل

[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

[amirzazadeh]

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

[rezekh]

سلام
کد انتقال رو با TRUE ست کن در این صورت هدرهای فایل اکسل هم منتقل میشه:

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

سلام
بسیار سپاسگذارم کمک بزرگی بود