Set excel = CreateObject("Excel.Application") 'Abre la aplicación Excel (depande de cada Cliente)
excel.Workbooks.add
excel.Caption = "Titulo"
'excel.visible=False`' para cargarlo por detras
excel.Worksheets(1).Range("A1:T1000").font.size=10 ' tamaño letra en rango
excel.Worksheets(1).Range("A1").Value= "Valor de texto"
excel.Worksheets(1).Range("A1:G1").Merge 'Une las celdas
excel.Worksheets(1).Range("A1:G1").HorizontalAlignment =3 ' alinea
excel.Worksheets(1).Range("A1:G1").Font.Bold = True ' negrita
excel.Worksheets(1).Range("A1:T1").RowHeight=20 'alto de la fila
excel.Worksheets(1).Range("A1:T1").Font.size=12 ' tamaño fuente
excel.Worksheets(1).Range("A1:T1").VerticalAlignment =2 '
excel.Worksheets(1).Range("N1:T1").HorizontalAlignment = 3
excel.visible=True ' Muestra el fichero excel creado
Ver demás propiedades del objeto Excel.
Espero haber ayudado un poco.
saludos
