Private Sub Command1_Click()
On Error Resume Next
Dim Book1 As String:    Book1 = App.Path & "\book1.xls"
Dim List1 As String:    List1 = "имя листа"

If Dir(Book1) <> "" Then
    Kill Book1
    If Err.Number <>  0  Then
        Err.Clear
        MsgBox "не могу удалить прежний " & vbCrLf & Book1
        Exit Sub
    End If
End If

On Error GoTo err1

Dim XL As Excel.Application             'Microsoft Excel ?? Object Library
Dim BK As Excel.Workbook
Dim SH As Excel.Worksheet

Set XL = New Excel.Application

XL.Application.ScreenUpdating = False
XL.Visible = False

XL.Workbooks.Add
XL.Sheets( 1 ).Name = List1
XL.Workbooks( 1 ).SaveAs (Book1)          'создадим пустой excel-файлик
    
Set BK = XL.Workbooks.Open(Book1)       'открываем для заполнения
Set SH = BK.Worksheets(List1)

'заполняем значениями
'например так
'XL.Cells(2, 1).CopyFromRecordset rst    'если есть RecordSet
'или так
SH.Cells( 2 ,  1 ) =  12345 . 67                'значение какое-нибудь

'начинаем оформлять
'так
SH.Cells( 2 ,  1 ).Font.Bold = True         'для отдельной ячейки
'и так
SH.Columns( 1 ).ColumnWidth =  15           'для всей колонки
SH.Columns( 1 ).NumberFormat = "0.00"

SH.Cells( 1 ,  1 ) = "какой-нибудь Заголовок"
SH.Rows("1:1").Font.Bold = True         'для всей строки
SH.Rows("1:1").WrapText = True
SH.Rows("1:1").HorizontalAlignment = xlCenter   ' xlRight xlLeft
SH.Rows("1:1").VerticalAlignment = xlCenter
SH.Rows("1:1").RowHeight =  60 

With SH.PageSetup
    .PrintTitleRows = "$1:$1"           'повторять при печати первую строку
    .RightHeader = "Страница &P"
End With

BK.Save
BK.Close
XL.Quit                                 'обязательно Quit, иначе excel останется в памяти
Set XL = Nothing

err1:

    If Err.Number <>  0  Then
        MsgBox Err.Description
        On Error Resume Next
        XL.Quit                         'обязательно Quit, иначе excel останется в памяти
        Set XL = Nothing
    End If

End Sub