Есть такой работающий код :

Set xlAPP = CreateObject("Excel.Application")
xlAPP.Visible = False
xlAPP.UserControl = False
Set xlWb = xlAPP.Workbooks.Add
xlWb.Worksheets.Add().Name = "system"
Set xlWs = xlWb.Worksheets("system")
'xlWs.Cells(1, 1).CopyFromRecordset oRecordset
xlWb.SaveAs FileName:="C:\3.xlsx"

Но нужно чтобы SaveAs еще и переписывал сверху файл 3.xlsx (при наличии уже созданного на диске).
Сейчас возникает ошибка - не доступа к '3.xlsx'.

http://www.sql.ru/forum/1139619/metod-workbook-saveas-excel