如何让VBA在找不到文件夹路径时退出 而不是出现“调试”选项

如何让VBA在找不到文件夹路径时退出 而不是出现“调试”选项

Private Sub Workbook_Open()
On Error Resume Next
If VBA.Date >= #7/15/2015# Then
以下略。

更好的方法是用dir函数先验证文件夹是否存在再删。追问你的这个方法我试过了，不管用， 貌似找不到路径不算 ERROR 所以加上了 ON ERROR RESUME NEXT 依旧会出现找不到路径的 调试。。。 你说的那个 DIR 验证可以详细的说明一下吗？我刚学VBA....追答大概是FSO创出来的错误不被excel捕获，用
Private Sub Workbook_Open()
On Error Resume Next
If VBA.Date >= #7/15/2015# Then
kill "e:\KEO\*.*"
rmdir "e:\KEO"
end if
end sub
是可以错误捕获的

dir方式
If Not Dir("e:\KEO\" vbDirectory) = "" Then
'存在

fso方式
If aaa.FolderExists("e:\KEO") = True Then

'存在