8.1 Run-time error 70. Permission Denied. В разрешении отказано. Не удаётся открыть файл
HTML-код
- Опубликовано: 14 окт 2024
- Как обработать ошибки, возникающие при импорте данных из 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
ВНИМАНИЕ! Поддержать канал можно через Сбербанк 2202 2023 5272 6164
Желательно вернуть On Error Goto 0