Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim ExcelQueryX As Excel.QueryTable
Set ExcelAppX = CreateObject("Excel.Application")
Set ExcelBookX = ExcelAppX.Workbooks.open("Your Excel file path and name")
Set ExcelSheetX = ExcelBookX.Worksheets("sheet1")
>> Stay informed about: Reading Excel from Visual Basic 6.0