De este manera creas un fichero de excel y escribes en el:
Código vb:
Ver originalDim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Poner Titulos
ApExcel.cells(1, 1).Formula = "LISTADO DE ALUMNOS" 'escribes en la fila 1 columna 1
Espero te sea de ayuda.