I have this:
Code:
Private Sub Form_Load()
Dim oXLApp As Excel.Application 'Declare the object variables
Dim oXLBook As Excel.Workbook
Dim oXLSheet As Excel.Worksheet
Set oXLApp = New Excel.Application 'Create a new instance of Excel
Set oXLBook = oXLApp.Workbooks.Open("D:\Billard8") 'Open an existing workbook
Set oXLSheet = oXLBook.Worksheets.Add
oXLSheet.Name = Date