列如我设置一个文件名变量name，需要在指定文件夹中打开这个name变量的文件，如果文件夹内有这个文件，则打开并执行相关命令，如果找不到文件名name，则msgbox “找不到此文件，请确认输入是否正确”，并推出。请教怎么解决这个问题，因为现在找不到这个文件只会出现错误并进入调试。
Sub OpenF()
Dim name, mypath
name = "sox.xlsx"
mypath = "D:\nt\hist\" & name
If Dir(mypath, vbNormal) <> "" Then
MsgBox "Open 文件"
Else
MsgBox "找不到此文件，请确认输入是否正确"
Exit Sub
End If
End Sub追问
Dim name, mypath
name = "sox.xlsx"
mypath = "D:\nt\hist\" & name
If Dir(mypath, vbNormal) <> "" Then
MsgBox "Open 文件"
Else
MsgBox "找不到此文件，请确认输入是否正确"
Exit Sub
End If
End Sub追问
谢谢你的答案非常满意，也让我认识到了dir（）这个好东西，学习的过程中发现别人定义Dim name, mypat的时候会加上这个$,也就是Dim name$, mypat$,不知道什么意思，不加的话有什么影响
追答这个可以回答你的问题：http://club.excelhome.net/thread-399694-1-1.html
第7楼回复有说明符号是什么意思。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-01-25
msgbox “找不到此文件，请确认输入是否正确”
On Error Resume Next
exit sub
On Error Resume Next
exit sub
