GetDataFromExcel بواسطة VB.NET - نسخة قابلة للطباعة

كود :
Public Function GetDataFromExcel(ByVal FileName As String, _ 

ByVal RangeName As String) As System.Data.DataSet 



' Returns a DataSet containing information from 

' a named range in the passed Excel worksheet 

Try 

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 

"Data Source=" & FileName & ";Extended Properties=Excel 8.0;" 

Dim objConn As New System.Data.OleDb.OleDbConnection(strConn) 

objConn.Open() 

' Create objects ready to grab data 

Dim objCmd As New System.Data.OleDb.OleDbCommand( _ 

"SELECT * FROM " & RangeName, objConn) 

Dim objDA As New System.Data.OleDb.OleDbDataAdapter() 

objDA.SelectCommand = objCmd 

' Fill DataSet 

Dim objDS As New System.Data.DataSet() 

objDA.Fill(objDS) 

' Cleanup and return DataSet 

objConn.Close() 

Return objDS 

Catch 

' Possible errors include Excel file 

' already open and locked, et al. 

Return Nothing 

End Try 

End Function