如何自动查找文件并打开，如果文件不存在显示提示信息。

XMX64311

公司有很多产品系列，希望通过窗体中获取产品图号，自动打开放到局域网中的用该产品图号命名的Excel作业指导书，如果打不开，就提示“该产品工程师还没放作业指导书！”有文件的时候下面的代码是可以正常打开的，如果没文件，整个ACCESS就死机了，要在任务管理器里结束进程，才会弹出“该产品工程师还没放作业指导书！”的提示！
Private Sub 命令161_Click()
On Error GoTo Err_命令161_Click
Dim hy As String
Dim ex As New Excel.Application
Dim xls As New Excel.Workbook
hy = "\\10.225.70.11\Factory MIS\Production\作业指导书\" & Trim(Me![Part #]) & ".xls "
Set ex = CreateObject("excel.application")
Set xls = ex.Workbooks.Open(hy)
ex.visible = True

Exit_命令161_Click:
    Exit Sub
Err_命令161_Click:

    Dim desription As String
    desription = MsgBox("该产品工程师还没放作业指导书！”, "注意事项应放在网上指定的文件中")
Resume Exit_命令161_Click




End Sub

XMX64311

已解决，谢谢老师的帮忙！！

XMX64311

谢谢回复，我再试试

todaynew

Private Sub 命令161_Click()
   Dim hy As String
   hy = "\\10.225.70.11\Factory MIS\Production\作业指导书\" & Trim(Me![Part #]) & ".xls "
   Call OpenE(hy)
end sub



Sub OpenE(byval hy as string)
    Dim MyFSO as Object
    Dim ex As Object
    Dim xls As Object

    Set MyFSO=CreateObject("Scripting.FileSystemObject")
    if MyFSO.FileExists(hy) then
         Set ex = CreateObject("excel.application")
         Set xls = ex.Workbooks.Open(hy)
         ex.visible = True
    else
         MsgBox("该产品工程师还没放作业指导书！”, "注意事项应放在网上指定的文件中")
    end if
end Sub

admin

可能是EXCEL未正常或打开所致