ms-access - 错误 53 找不到文件

Question

我有一个 Access 2003 数据库，它有一个 VBA 模块。模块函数指向一个Excel文件。

该函数是通过命令行调用Excel文件，如下所示:Shell "Excel\\server\dir\filename.xls", vbMaximizedFocus

数据库打开，函数被触发，我得到Run-timer error '53': File not found

我知道 Excel 文件存在，我可以打开它。我拥有能够 Access 文件路径中的文件夹的安全权限。

我已经尝试过的:

反编译+压缩+重新编译数据库，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