Можно ли из программы на Visual Basic создать рабочую книгу Excel?

' CreateXlBook
' Вызывает MS Excel, создает рабочую книгу с именем sWbName с одним
' единственным рабочим листом. Рабочая книга будет сохранена в каталоге
' sDirName. В случае успеха возвращает True, в противном случае - False.
'
Public Function CreateXlBook(sWbName As String, sDirName) As Boolean 
 ' MS Excel hidden instance Dim objXLApp As Object Dim objWbNewBook As Object 
 CreateXlBook = False 
 Set objXLApp = CreateObject("Excel.Application") If objXLApp Is Nothing Then Exit Function 
 ' В новой рабочей книге создавать только один рабочий лист objXLApp.SheetsInNewWorkbook = 1 
 Set objWbNewBook = objXLApp.Workbooks.Add If objWbNewBook Is Nothing Then Exit Function 
 ' Сохраняем книгу If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function 
 objWbNewBook.SaveAs (sDirName + "\" + sWbName + ".xls") CreateXlBook = True 
 ' Освобождение памяти Set objWbNewBook = Nothing objXLApp.Quit Set objXLApp = Nothing CreateXlBook = True 

End Function 

Hint: Tested and approved with MS Visual Basic 4.0 Enterprise Edition