ObjOledbConnection = New System.Data.OleDb.OleDbConnection(provider=Microsoft.ACE.OLEDB.12.0;data source=excelfilepath;Extended Properties=Excel 8.0) Dim objexcel As New Excel.Application Dim objExcel As Object = CreateObject("Excel.Application") Dim objBook As Object = objExcel.Workbooks.Open(excelFilePath) For Each oSheet As Excel.Worksheet In objBook.Sheets objDtLoopConfiguration = New DataTable ObjOledbCommand = New System.Data.OleDb.OleDbDataAdapter("select * from ["&oSheet.Name &"$]";, ObjOledbConnection) ObjOledbCommand.Fill(objDtLoopConfiguration) objDtLoopConfiguration.TableName = oSheet.Name mobjds.Tables.Add(objDtLoopConfiguration.Copy()) Next
"The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)