Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

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