How To Save To Excel Sheet From Work Sheet1

[redshirtme]

WHEN i TRIED THIS CODE

Set xl = CreateObject("Excel.Application")
Set xlBook = xl.Workbooks.Open(App.Path & "\book1.xls")
 Set xlSheet = xlBook.Worksheets.Add

IT ALWAYS START FROM WORKSHEET 4 ,BECAUSE BY DEFAULT, EXCEL OPEN 3 BLANK WORKSHEET ONSTART, HOW DO I CHANGE THE CODE SO THAT i COULD SAVE FROM WORK SHEET 1 WITHOUT LEAVING FIRST THREE WORKSHEETS BLANK?


THANKS

[Dave Sell]

' Create a new Excel application
    Set m_appExcel = New Excel.Application
    m_appExcel.SheetsInNewWorkbook = 1
    Set m_wkbReportBook = m_appExcel.Workbooks.Add
    m_appExcel.SheetsInNewWorkbook = 3

This will add a Workbook with 1 Worksheet.