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