Protected Function ExcelConnection() As OleDbCommand Try ' Connect to the Excel Spreadsheet 'Dim xConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ '"Data Source=" & Server.MapPath("~/ExcelImport.xls") & ";" & _ '"Extended Properties=Excel 8.0;" Dim sMinAndSecond As String = Me.Second_Minute_of_Upload.Text 'workaround to stop file locking on the same name Dim xConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("~/Temp/ExcelImport" & sMinAndSecond & ".xlsx") & ";" & _ "Extended Properties=""Excel 8.0;HDR=YES;IMEX=1""" ' create your excel connection object using the connection string Dim objXConn As New OleDbConnection(xConnStr) objXConn.Open() ' use a SQL Select command to retrieve the data from the Excel Spreadsheet ' the "table name" is the name of the worksheet within the spreadsheet ' in this case, the worksheet name is "Members" and is expressed as: [Members$] Dim objCommand As New OleDbCommand("SELECT * FROM [Sheet1$]", objXConn) Return objCommand Catch ex As Exception Response.Write("There was an error connecting to the Excel spreadsheet! " & Err.Description & " xk6") End Try End Function
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE