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

Ось фрагмент коду, який вирішує таку задачу:

' Function ValueOfNamedCell

' Повертає значення осередку з ім'ям sCellName. у активній робочій книзі.

' Note: Якщо осередок з ім'ям sCellName не існує - функцією повертається

' значення Emрty.

Рublic Function ValueOfNamedCell (sCellName As String) As Variant

On Error GoTo errНandle

ValueOfNamedCell = ActiveWorkbook. Names (sCellName). RefersToRange. Value

Exit Function

errНandle:

ValueOfNamedCell = Emрty

End Function

Нint: Відладжено і протестовано в Excel'97.

Чи можна з програми на Visual Basic створити робочу книгу Excel?

Так, можна. Приклад того, як з Visual Basic'a через OLE запустити 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