我想在VBA中,判断D盘某文件是否存在,如果存在就执行命令,不存在就不执行宏命令,请问,怎么判断是否存在D盘文件?谢谢。
楼主应该是要判断文件不是文件夹吧?如果是文件就用
Dim MyFile As Object
Set MyFile = CreateObject("Scripting.FileSystemObject")
If MyFile.FileExists("D:\logo.gif" ) = True Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
如果是文件夹就用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也是一样的根目录下也是不能加\的
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-06-12
if Dir("D:\xxx") then
msgbox "文件存在"
end if
msgbox "文件存在"
end if