Ms access 错误53：找不到文件

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

函数通过命令行调用Excel文件，如下所示：

Shell“Excel\\server\dir\filename.xls”，vbMaximizedFocus

数据库打开，函数被触发，我得到

运行计时器错误'53'：找不到文件

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

我已经尝试过的：

反编译+压缩+重新编译数据库

我仍然得到同样的错误。有人能提出其他原因/解决方案吗

---

次要编辑-内容保持不变。

请参阅映射的网络驱动器（字母）。检查您的即时窗口：

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

您还可以按如下方式打开工作簿（如果您希望更灵活）：

---

我无法复制文件未找到错误。我修改了您的代码，如下所示，但它打开工作簿文件时没有错误

Const cstrFile=“\\HP64\share\Access\temp.xls”
如果Len（Dir（cstrFile））=0，则
未找到MsgBox“文件”&“cstrFile&”
其他的
Shell“Excel”和cstrFile，vbMaximizedFocus
如果结束

或者，您可以创建一个Excel应用程序实例，然后打开该文件。然而，我怀疑这是否能避免未找到的错误

Dim objExcel As Object'Excel.Application
设置objExcel=CreateObject（“Excel.Application”）
objExcel.Visible=True
objExcel.Workbooks.Open cstrFile
“在这里做事
退出
设置objExcel=Nothing

您是否能够从文件浏览器窗口访问文件

\\server\dir\filename.xls

？无法识别路径的最终原因是什么？由于某些原因，在shell中键入“excel”将无法启动excel。但是如果我输入excel.exe的完整路径，它就可以启动了。由于路径在不同的机器上可能不同，并且考虑到未来的软件升级，我决定只调用excel对象。

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

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

oExcel.Quit 'close