[فراس الغزي]

اعتقد  هذا الكود ينفعك  اخي  العزيز  هذا الكود  هو  لتحميل  الملف  من الحاسوب  ما يتبقى  عليك  هو فقك  ان  تعرف  كيف  تربطه في  قاعدة البيانات  

كود :

'Public Con_Excel As New System.Data.OleDb.OleDbConnection
Dim OFD As New OpenFileDialog
With OFD
.Filter = "Excel File (*.xlsx)|*.xlsx""|Excel File (*.xls)|*.xls""|All Files (*.*)|*.*"
.FilterIndex = 3
.Title = "Choose Excel File"
.FileName = "Choose Only Excel File"
End With
'--------------------------------------------------------------
Dim strExt, Strpath As String
If OFD.ShowDialog = DialogResult.OK Then
Txtpath.Text = OFD.FileName
Strpath = OFD.FileName
strExt = OFD.FileName.Substring(OFD.FileName.LastIndexOf("."))
If strExt = ".xls" Then
Con_Excel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Strpath &";Extended Properties=Excel 8.0;"
ElseIf strExt = ".xlsx" Then
Con_Excel.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& Strpath &";Extended Properties=Excel 12.0;"
Else
MessageBox.Show(" يجب إختار ملف من نوع أكسل فقط", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

Strpath = vbNullString : Txtpath.Text = vbNullString
Exit Sub
End If
End If