excel vba判断文件是否存在

如题所述

关于,一般有如下的两种方式。 请根据情况,选择一种适合你的方法。 一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称,可自行修改。 二、通过Dir来判断 Dim YouFile As String YouFile = Dir("E:\MyPictures\Pic\logo.gif") If x <> "" Then MsgBox "文件存在" Else MsgBox "文件不存在" Endif "E:\MyPictures\Pic\logo.gif"为文件路径及文件名称,可自行修改。当然,如上代码,也在VBA下使用,可自作成为宏或函数都可以。 上面的两种方法,本站推荐你使用第一种方法,因为第一种方法比较符合逻辑思维。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2019-06-14
(上面回答的格式化)
关于,一般有如下的两种方式。 请根据情况,选择一种适合你的方法。
一、通过FileExists判断文件是否存在
Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject")
If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
以上代码在VBA环境下使用。或者将其制作成为宏也可以。
"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称,可自行修改。
二、通过Dir来判断
Dim YouFile As String
YouFile = Dir("E:\MyPictures\Pic\logo.gif")
If x <> "" Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
Endif
"E:\MyPictures\Pic\logo.gif"为文件路径及文件名称,可自行修改。
当然,如上代码,也在VBA下使用,可自作成为宏或函数都可以。
上面的两种方法,本站推荐你使用第一种方法,因为第一种方法比较符合逻辑思维。

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网