Access і Visual basic for Application. Excel VBA: прийоми програмування
створити робочу книгу.' 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