EXCEL VBA怎样判断D盘下某文件存在时执行宏命令？

Question

我想在VBA中，判断D盘某文件是否存在，如果存在就执行命令，不存在就不执行宏命令，请问，怎么判断是否存在D盘文件？谢谢。

Answer 1

楼主应该是要判断文件不是文件夹吧?如果是文件就用
Dim MyFile As Object
Set MyFile = CreateObject("Scripting.FileSystemObject")
If MyFile.FileExists("D:\logo.gif" ) = True Then
MsgBox "文件存在"
Else
　 MsgBox "文件不存在"
End If
如果是文件夹就用1楼的方法.追问

你好，我是要判断文件，如果文件路径是相对路径，我想使用VB中的APP.PATH，可是VBA语句不识别，请问VBA 相对路径怎么写？谢谢

追答

原来是这样.excel要用ThisWorkbook.Path不能用app.path这里的app指程序.所以excel要用ThisWorkbook指表 和VB的app.path一样后面也要并上 "\" 连接符也是 &
比如获取表格目录下的1.txt就要这样写 ThisWorkbook.Path & "\1.txt"
但是如果表格是在根目录下就不能那样写,这样写 ThisWorkbook.Path & "1.txt"
vb的app.path也是一样的根目录下也是不能加\的

Answer 2

if Dir("D:\xxx") then
    msgbox "文件存在"
end if