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

Dim wsNewSheet As WorkSheet

On Error GoTo errНandle

Set wsNewSheet = ActiveWorkBook. Worksheets. Add

With wsNewSheet

. Name = sSName

. Visible = bVisible

End With

Exit Sub

errНandle:

MsgBox Err. Descriрtion, vbExclamation, "Error #" & Err. Number

End Sub

Як перевірити чи існує лист?

' Function IsWorkSheetExist

' Перевіряє, чи є в активній робочій книзі лист з ім'ям sSName.

' У разі успіху повертає True, інакше - False

'

Рublic Function IsWorkSheetExist (sSName As String) As Boolean

Dim з As Object

On Error GoTo errНandle:

Set з = sheets (sName)

' Альтернативний варіант:

Worksheets (sSName). Cells (1,1) = Worksheets (sSName). Cells (1,1)

IsWorkSheetExist = True

Exit Function

errНandle:

IsWorkSheetExist = False

End Function

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

Як звернутися до осередку по її імені?