ecco come apro il programma

codice:
Dim programma As Application
Dim cartella As Workbook
Dim foglio As Worksheet

programma = CreateObject("excel.application")
cartella = programma.Workbooks.Add
foglio = cartella.ActiveSheet
e prima di tutto questo ho fatto aggiungi riferimento>COM>microsoft office