Sub NewWrb() Dim objExcel As Excel.Application Dim wrb As Workbook Set objExcel = New Excel.Application Set wrb = objExcel.Workbooks.Add End Sub
http://www.sql.ru/forum/1130645/sozdanie-knigi-excel-iz-modulya-access