codice:
strPath = PERCORSO_AL_FILE_EXCEL

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open(strPath)
Set objWorkBook = objExcel.ActiveWorkbook

indxSheet	= IL_FOGLIO_CHE_VUOI_LEGGERE (1 IL PRIMO / 2 IL SECONDO .... )

Set paginaExcel = objWorkBook.Worksheets(indxSheet)

PRIMA CELLA PRIMA RIGA
cella_1 = paginaExcel.Cells(1, 1)

SECONDA CELLA PRIMA RIGA
cella_2 = paginaExcel.Cells(1, 2)

eccetera ...