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