判断工作簿是否存在

判断工作簿的存在

在windows的资源管理器中输入文件路径通常都能打开指定路径的程序?

那么在excel里也能实现这样的效果吗?

可以!代码伺候:

 
  1. Sub 判断工作簿是否存在()   
  2.   
  3. ‘ 由 Kael.Z 录制,时间: 2011/6/3  
  4. Dim str As String   
  5. str = Application.InputBox(prompt:="请输入所要查找工作簿的路径:", Title:="文件路径", Type:=2)   
  6. If str = "false" Then Exit Sub   
  7. If Not Len(Dir(str)) > 0 Then   
  8. MsgBox "工作簿" & str & "不存在!"  
  9. Else   
  10. Workbooks.Open str   
  11. End If   
  12. End Sub   

不存在

原理是输入你需要查找的文件路径,类似于D:\EXCEL\test.xls,如果该文件存在则自动打开,不存在返回不存在,并退出。

说实话,这个不局限于查找工作簿,你随便输入个程序路径也能打开!奇妙之处,呵呵!

分享到: