1、在工作表中,点击菜单栏【开发工具】,在其工具栏里,点击【visual basic】,进入VBA界面!
2、在VBA界面,点击菜单栏【插入】,在其下拉菜单中,点击【模块】!
3、会弹出【代码编辑】窗口!
4、在【代码编辑】窗口,输入以下代码:Sub 文件是否存在()Dim wkb As Stringwkb = Dir("f:\123.旌忭檀挢xlsx")If wkb <> "" ThenMsgBox "文件存在"ElseMsgBox "文件不存在"End IfEnd Sub
5、在VBA窗口点击【运行】按钮。
6、会跳出文件存在的对话框!