' 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
objXLApp.ActiveCell(1, 1) = "Столбец 1"
objXLApp.ActiveCell(1, 3) = "Столбец 3"
' Сохраняем книгу
objWbNewBook.SaveAs (sDirName + "\" + sWbName + ".xls")
' Освобождение памяти
Set objXLApp = Nothing
objWbNewBook.Close
CreateXlBook = True
End Function
Private Sub Command1_Click()
CreateXlBook "Моя книга", "Папка с Excel-ем"
End Sub