Public Shared Function excel(ByVal path As String) As DataTable Dim dtexcel As New DataTable() Dim headers As Boolean = False Dim HDR As String Dim strConn As String If headers = False Then HDR = "Yes" Else HDR = "No" End If If path.Substring(path.LastIndexOf(".")).ToLower() = ".xlsx" Then strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties=""" & "Excel 12.0;HDR=" & HDR & ";IMEX=0;" Else strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Extended Properties=" & """Excel 8.0;HDR=" & HDR & ";IMEX=0;" End If Dim conn As OleDbConnection = New OleDbConnection(strConn) conn.Open() Dim Stable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {vbEmpty, vbEmpty, vbEmpty, "TABLE"}) Dim Srow As DataRow = Stable.Rows(0) Dim sheet As String = Srow("Table_name").ToString() If Not sheet.EndsWith("_") Then Dim query = "select * from [" & sheet & "]" Dim daexcel As OleDbDataAdapter = New OleDbDataAdapter(query, conn) dtexcel.Locale = System.Globalization.CultureInfo.CurrentCulture daexcel.Fill(dtexcel) End If conn.Close() Return dtexcel End Function
";IMEX=0;"""
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)