标题: 如何自动查找文件并打开，如果文件不存在显示提示信息。 [打印本页] 作者: XMX64311 时间: 2013-9-9 15:45 标题: 如何自动查找文件并打开，如果文件不存在显示提示信息。 公司有很多产品系列，希望通过窗体中获取产品图号，自动打开放到局域网中的用该产品图号命名的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作者: admin 时间: 2013-9-9 17:53
可能是EXCEL未正常或打开所致作者: todaynew 时间: 2013-9-10 10:26
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作者: XMX64311 时间: 2013-9-10 11:09
谢谢回复，我再试试作者: XMX64311 时间: 2013-9-10 11:42
已解决，谢谢老师的帮忙！！