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

 Close #1

 ThisWorkbook.ActiveSheet.Protect

End Sub

Sub dbWrite()

 ThisWorkbook.ActiveSheet.Unprotect

 Dim myRecord As Record

 Dim data As Range, curRow As Range

 Range("A5").Activate

 Set data = ActiveCell.CurrentRegion

 Open dbFileName For Output As #1

 For Each curRow In data.Rows

   myRecord = getRecord(curRow)

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

 Next curRow

 Close #1

 ThisWorkbook.ActiveSheet.Protect

End Sub

Function getRecord(row As Range) As Record

  Dim myRecord As Record

  myRecord.Fam = row.Cells(, 1).Value

  myRecord.Im = row.Cells(, 2).Value

  myRecord.Ot = row.Cells(, 3).Value

  myRecord.street = row.Cells(, 4).Value

  myRecord.no = row.Cells(, 5).Value

  myRecord.Flat = row.Cells(, 6).Value

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



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

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