Public MyObject as New CMyObject

Private Sub Class_Terminate()
  MsgBox "CMyObject - Terminate()"
End Sub

Dim cTest As clsTest

Private Sub Workbook_Open()
    Set cTest = New clsTest
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set cTest = Nothing
End Sub

Private Sub Class_Initialize()
    MsgBox "Initialize"
End Sub

Private Sub Class_Terminate()
    MsgBox "Terminate"
End Sub

Public rs As ADODB.Recordset
Sub start()
Dim cn As ADODB.Connection
Dim SCon$, StrSql$
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
SCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;HDR=Yes"";"
cn.Open SCon
If Not cn.State =  1  Then Exit Sub
StrSql = "SELECT *  FROM [Лист1$]"
rs.Open StrSql, cn, adOpenKeyset, adLockPessimistic
rs.MoveLast: rs.MoveFirst
End Sub

Sub hhh()
MsgBox rs.RecordCount
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы