[AboRakan]

السلام عليكم ورحمة الله وبركاته

أساتذتي الكرام ارغب في تحويل هذا الكود vba اكسيس الى سي شارب

وظيفة الكود الاستيراد من ملف اكسيل الى جدول في قاعدة بيانات اكسيس 

كود :

Dim dlg As FileDialog, strFileName As String
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.Title = "اختر ملف اكسيل المراد استيراد البيانات منه"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls*", 1
.Filters.Add "All Files", "*.*", 1
If .Show = -1 Then
strFileName = .SelectedItems(1)


Dim ImportFileName As String
ImportFileName = strFileName
DoCmd.TransferSpreadsheet acImport, 8, "table1", ImportFileName, True

Else
Exit Sub
End If
End With

ولكم مني جزيل الشكر