Just incase you are looking for .NET code then you can use the below
dt_Temp = Read_Range("H:\Temp\New Microsoft Excel Worksheet.xlsx")
dt_Temp2 = Read_Range("H:\Temp\New Microsoft Excel Worksheet_2.xlsx")
'Do you coding here
End Sub
Public Function Read_Range(ExcelFilePath As String) As DataTable
Dim conn As System.Data.OleDb.OleDbConnection
Dim dtr As System.Data.OleDb.OleDbDataReader
Dim dta As System.Data.OleDb.OleDbDataAdapter
Dim cmd As System.Data.OleDb.OleDbCommand
Dim dts As DataSet
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ExcelFilePath + ";Extended Properties=Excel 12.0;")
dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn)
dts = New DataSet
dta.Fill(dts, "[Sheet1$]")
Read_Range = dts.Tables(0)
conn.close
End Function
Sub Test()
