Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

 End If

End Sub

Sub ExitProject()

 ThisWorkbook.Saved = True

 If Application.Workbooks.count = 1 Then

    Application.Quit      'завершить работу Excel

 Else

    ThisWorkbook.Close  'завершить работу проекта

 End If

End Sub

Sub dbRead()

 ThisWorkbook.ActiveSheet.Unprotect

 Dim myRecord As Record

 Dim data As Range, curRow As Range

 Dim row As Integer

 Range("A5").Activate

 Set data = ActiveCell.CurrentRegion

 data.ClearContents

 Open dbFileName For Input As #1

 row = 1

 Do While Not EOF(1)

   Input #1, myRecord.Fam, myRecord.Im, myRecord.Ot, myRecord.street, myRecord.no, myRecord.Flat, myRecord.Phone

   putRecord ActiveCell.Cells(row), myRecord

   row = row + 1

 Loop

Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки