End If
‘ Отображаем песочные “часы ожидания”.
DoCmd.Hourglass True
‘ Создаем рабочую книгу Excel.
objXLSheet.Workbooks.Add
‘ Читаем значения из таблицы Assets в рабочий лист Excel:
rstAsset.MoveFirst
For intCount = 2 To rstAsset.Fields.Count - 1
objXLSheet.Worksheets(1).Cells(intCount-1, 1). _
Value = Val(rstAsset.Fields(intCount))
Next intCount
‘ Устанавливаем год для которого вычисляем амортизацию:
objXLSheet.Worksheets(1).Cells(1, 2).Value = 3
‘ Вычисляем амортизацию и отображаем ее:
objXLSheet.Worksheets(1).Cells(3, 2).Formula _
= "=VDB(A1, A2, A3, B1-1, B1, A4)"
strMsg = "Трехлетняя амортизация по первому " _
& "наименованию, записанному в таблице "
MsgBox prompt:=strMsg, Buttons:=vbInformation, _
Title:="Вычисление VDB"
‘ Если Excel не был открыт до выполнения процедуры,
‘ то выход из Excel, и очистка переменой:
If intXLFlag = 1 Then
objXLSheet.Workbooks(1).SaveAs "C:\DB\Res.xls"
objXLSheet.Application.Quit
Set objXLSheet = Nothing
End If
DepreciationExit:
‘ Выключаем "песочные часы ожидания":
DoCmd.Hourglass False
Exit Function
ComputeVDBError:
strMsg = "Произошла ошибка с кодом = " & Err
MsgBox prompt:=strMsg, Buttons:=vbExclamation, _
Title:= "Ошибка!"
Resume DepreciationExit
