Ошибка 53 Файл не найден

Question

У меня есть база данных Access 2003 с модулем VBA. Функция модуля указывает на файл Excel.

Функция вызова метода Excel файл через командную строку, как это: Shell "Excel \\server\dir\filename.xls", vbMaximizedFocus

открывает БД, функция получает срабатывает, и я получаю Run-timer error '53': File not found

Я знаю, что файл Excel существует, и Я могу открыть его. У меня есть разрешения безопасности для доступа к папкам в пути к файлам.

Я уже пробовал:

декомпилировать + компактный + перекомпилировать DB, using the instructions here.

я все еще получаю ту же ошибку. Может ли кто-нибудь предложить другие причины/решения?

мелкое изменение - содержание остается неизменным.

Answer 1

Я не могу воспроизвести файл не найден ошибка. Я адаптировал ваш код следующим образом, но он открывает файл рабочей книги без ошибок.

Const cstrFile = "\\HP64\share\Access\temp.xls" 
If Len(Dir(cstrFile)) = 0 Then 
    MsgBox "File '" & cstrFile & "' not found." 
Else 
    Shell "Excel " & cstrFile, vbMaximizedFocus 
End If 

В качестве альтернативы, вы можете создать экземпляр приложения Excel, а затем открыть файл. Однако я скептически отношусь к тому, что это позволит избежать ошибочной ошибки.

Dim objExcel As Object 'Excel.Application 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 
objExcel.Workbooks.Open cstrFile 

' do stuff here 
objExcel.Quit 
Set objExcel = Nothing 

Answer 2

Обратитесь к подключенному сетевому диску (букве). Проверьте немедленное окно:

?dir("N:/dir\filename.xls") 

Вы также можете открыть книгу следующим образом (если вы хотите больше гибкости):

Dim oExcel As Excel.Application 
Set oExcel = CreateObject("Excel.Application") 

oExcel.visible = true 
oExcel.Workbooks.Open ("\\server\dir\filename.xls") 

oExcel.Quit 'close