Здравствуйте уважаемые форумчане,
С наступивщим Вас новым годом!
Помогите пожалуйста советом.
Есть файл в нем отмечаю посещаемость. Ученики пришедшие отмечаются буквой Р и записываются в другой файл (как в базу данных).
Файл работал года 3-4 и вот перестал записывать.
Сразу хочу сказать, что файл находиться на другом компьютере и я пробовола на своем и все работает нормально.
Подскажите пожалуйста, что могло стать причиной сбоя. Может нужно что-то проверить.
Верисия Excel английская. Файл и файл база данных находяться на share drive в одной папке и пользуется только один человек в одно время.
Спасибо
| Код |
|---|
Sub Add_attend_data() ' add attandance to data file
Dim Attend As Worksheet
Dim Attendlistobj As ListObject
Dim Attendrow As ListRow
Dim Attenddata As Worksheet 'Sheet2 (all attendance data)
Dim Attenddataobj As ListObject
Dim Attenddatarow As ListRow
Set Attend = ThisWorkbook.Worksheets("Attendance")
Set Attendlistobj = Attend.ListObjects("Attendance_tb")
Set Attenddata = Workbooks("DATA.xlsm").Worksheets("Attendance_data")
Set Attenddataobj = Attenddata.ListObjects("Attend_data")
Dim cell As String, arrData, i As Long
Dim b As Double
b = Application.Max(Workbooks("DATA.xlsm").Worksheets("Attendance_data").Range("Attend_data[Operation code]")) + 1
With Worksheets("ATTENDANCE")
cell = "P"
arrData = .Range("C9").CurrentRegion
For i = 2 To UBound(arrData, 1)
If arrData(i, 13) = cell Then
Set Attenddatarow = Attenddataobj.ListRows.Add
Attenddatarow.Range(2) = b
Attenddatarow.Range(3) = arrData(i, 1)
Attenddatarow.Range(4) = Sheet2.Range("E3")
Attenddatarow.Range(5) = Sheet2.Range("E6")
End If
Next i
End With
Delete_attend
Sheet2.Range("E3,E6").ClearContents
Sheet2.Range("Attendance_tb").ClearContents
Sheet2.Range("Attendance_tb[belt]").ClearFormats
End Sub
|
