8.1 Run-time error 70. Permission Denied. В разрешении отказано. Не удаётся открыть файл

Как обработать ошибки, возникающие при импорте данных из Access в Excel. Первая - если отсутствует файл, в который передаются данные. Вторая - если конечный файл уже открыт. На событие нажатия кнопки вставьте код: Private Sub Кнопка85_Click() On Error GoTo ErAlreadyOpen Dim dbTable As String Dim fcSource As String Dim fcDestin As String fcSource = “E:\Сервер\БД КБ\01_Основная\ДеталиБезСвязи.xlsx” fcDestin = “E:\Сервер\БД КБ\04_Отчёты\Отчёт ДеталиБезСвязи.xlsx” If Dir(“E:\Сервер\БД КБ\01_Основная\ДеталиБезСвязи.xlsx”) = “” Then MsgBox “Отсутствует файл ДеталиБезСвязи!” Exit Sub Else dbTable = “Детали в Excel без связи” DoCmd.TransferSpreadsheet transfertype:=acExport, SpreadsheetType:=acSpreadsheetType Excel12, TableName:=dbTable, FileName:=fcSource FileCopy fcSource, fcDestin Application.FollowHyperlink “E:\Сервер\БД КБ\04_Отчёты\Отчёт ДеталиБезСвязи.xlsx” End If ErExit: Exit Sub ErAlreadyOpen: MsgBox “Файл уже открыт! Чтобы получить новые данные, закройте его и вновь нажмите кнопку экспорта! “ Resume ErExit End Sub