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
msgbox “找不到此文件，请确认输入是否正确”
On Error Resume Next
exit sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024