判断工作簿是否存在

• VBA • 暂无评论 • •4,078 次查阅

判断工作簿的存在

在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，如果该文件存在则自动打开，不存在返回不存在，并退出。

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

分享到：

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如， ABC是本文的评论者之一，则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all '，将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称▼

沙发空缺中，还不快抢~