Access - creating workbook (excel)

[JoanaSantos]

Hi, I have created this code to save the info of one table in excel :

but in the end i stay with two sheets: sheet1 and F01Incos01. Can u help me? i just want to stay with the sheet "F01Incos01"


Private Sub Command329_Click()

Dim newExcelApp As Excel.Application
Dim newWbk As Excel.Workbook
Dim newWkSheet As Excel.Worksheet

Set newExcelApp = Excel.Application
'Set newExcelApp.Visible = True

Set newWbk = newExcelApp.Workbooks.Add(xlWBATWorksheet)
'Set newWkSheet = newWbk.Worksheets(1)

newWbk.SaveAs "C:\Joana\F01Incos01.xlsx"
strExcelPath = "C:\Joana\F01Incos01.xlsx"

newWbk.Save
newWbk.Close

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
"F01Incos01", strExcelPath, True

DoCmd.SetWarnings True

MsgBox "Processo Concluído!"

End Sub

 

[1DMF]

Why are you creating the XLS first?

Isn't it this creating the blank sheet1?

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

 

[SeanMallory]

Add this line...
newExcelApp.Sheets("Sheet1").Delete

 

[lameid]

I agree with 1DMF you do not need to create the Excel file first. Excel when it creates a workbook by default creates 1 or more new sheets.