不知道你要什么VBA,以何种方式输入。。。。就拿EXCEL举例吧
Private Sub CommandButton1_Click()Dim str As StringIf Dir(TextBox1) <> "" Then str = TextBox1If Dir(TextBox1) = "" Then str = "未找到"MsgBox strEnd Sub
新建个文本输入框 新建个按钮,输入后按下按钮,没找着就显示没找到,找到显示文件名。