Private Sub Command1_Click()
    Dim ex As Excel.Application
 
    Set ex = New Excel.Application
 
    ex.Workbooks.Add
    ex.ActiveWorkbook.SaveAs App.Path + "\Excel1.xls"
 
    ex.Quit
    Set ex = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1