Примерно вот так:
Dim App As Excel.Application
Set App = GetObject(, "Excel.Application")
Если у тебя файл не открыт, наверно можно канибудь так:
Set App = CreateObject("Excel.Application")
Потом примерно так
App.Workbooks.Add ("Путь")
или так
App.Worksheets.Add ("Путь")

теперь забирай все что хочешь например из первой ячейки:
App.Sheets("Your_name").Cells(1,1).
А вообще, я по-моему когда-то подобные примеры в хелпе видел.