同一文件夹下判断不打开的指定文件是否存在

hzruziniu · 发表于 2013-11-6 11:22

如何在同一文件夹下判断不打开的AAA文件是否存在,AAA文件名是活动单元格的"A1"的变量
问题是下面代码中的变量错误,请老师指教,谢谢

判断指定文件是否存在.rar (18.98 KB, 下载次数: 7)
Sub 判断AAA文件是否存在()
Dim aa
aa = Sheet1(Range('a1"))
Set FS = Application.FileSearch  '设FS为文件名称
With FS
   .LookIn = ThisWorkbook.Path '确定路径
   .Filename = aa & ".XLS" '查找的文件名
   If .Execute() > 0 Then '判断查找的结果
         MsgBox aa & "文件存在"
   Else
         MsgBox aa & "文件不存在"
   End If
End With
End Sub

山菊花 · 发表于 2013-11-6 11:34

Sub 判断AAA文件是否存在()
Dim aa$, bb$
aa = Sheet1.Range("a1").Value
bb = IIf(Dir(ThisWorkbook.Path & "\" & aa & ".xls*") <> "", "文件存在", "文件不存在")
MsgBox aa & bb
End Sub

hzruziniu · 发表于 2013-11-6 12:50

山菊花发表于 2013-11-6 11:34
Sub 判断AAA文件是否存在()
Dim aa$, bb$
aa = Sheet1.Range("a1").Value

谢谢总版主,代码简洁易懂,但还有一点不懂,就是".xls*"为什么要加上一个*号,请版主指教,谢谢!

山菊花 · 发表于 2013-11-6 12:57

2007以上版本的Excel文件，扩展名多了一个字符：xlsx、xlsm等。后面添加一个*号是这了查找高版本的Excel文件，如果不需要，可以删去。

hzruziniu · 发表于 2013-11-6 14:40

山菊花发表于 2013-11-6 12:57
2007以上版本的Excel文件，扩展名多了一个字符：xlsx、xlsm等。后面添加一个*号是这了查找高版本的Excel文件 ...

谢谢大师,明白了,我用的是2003因此不懂,再次谢谢您,问题圆满解决.
我替换了消息框,如果名称不一致直接可以在消息框内修改

查找指定文件是否存在.rar (23.24 KB, 下载次数: 31)

z00128284 · 发表于 2018-6-25 22:56

学习啦，，很不错

		自动登录	找回密码
密码			免费注册

[求助] 同一文件夹下判断不打开的指定文件是否存在