[已解决]兰板《EXCEL VBA技巧与应用》第三例在EXCEL2007中如何运行？

ycb20010823

微软在excel 2007中放弃了Application.FileSearch的方法，可是在exel 2007中如何实现兰板“EXCEL VBA技巧与应用”第三个例子的功能啊？

Sub 判断AAA文件是否存在()
Set FS = Application.FileSearch
   With FS
    .LookIn = ThisWorkbook.Path            '确定路径
    .Filename = "AAA.XLS"    '查找的文件名
   If .Execute() > 0 Then   '判断查找的结果
     MsgBox "AAA文件存在"
   Else
     MsgBox "AAA文件不存在"
   End If
  End With
End Sub

WPj1dvH3.rar (8.52 KB, 下载次数: 3)

2009-11-12 12:55 上传

点击文件名下载附件
兰板《EXCEL VBA技巧与应用》第三例在EXCEL2007中如何运行？

最佳答案

月排行榜 / 总排行榜

爱疯

2009-11-12 13:08

Sub a()
    Dim xlsfile As String
    Dim n As Integer
    Dim f As String
   
    f = "AAA"
    xlsfile = Dir(ActiveWorkbook.Path & "\*.xls")
    Do
        If InStr(1, xlsfile, f) > 0 Then
            n = n + 1
        End If
        xlsfile = Dir
    Loop Until Len(xlsfile) = 0
   
    If n Then
        MsgBox f & "存在"
    Else
        MsgBox f & "不存在"
    End If
End Sub

[此贴子已经被作者于2009-11-12 13:09:51编辑过]

跳转到最佳答案楼层

爱疯

Sub a()
    Dim xlsfile As String
    Dim n As Integer
    Dim f As String
   
    f = "AAA"
    xlsfile = Dir(ActiveWorkbook.Path & "\*.xls")
    Do
        If InStr(1, xlsfile, f) > 0 Then
            n = n + 1
        End If
        xlsfile = Dir
    Loop Until Len(xlsfile) = 0
   
    If n Then
        MsgBox f & "存在"
    Else
        MsgBox f & "不存在"
    End If
End Sub

[此贴子已经被作者于2009-11-12 13:09:51编辑过]

ycb20010823

你好，爱疯，再没有Application.FileSearch替换的代码了吗？

在这里，如果要是把AAA改成AAAh的话，还是会提示查找到这个文件的！

[此贴子已经被作者于2009-11-12 13:16:39编辑过]

爱疯

http://support.microsoft.com/kb/920229/zh-cn

里面说不再支持了，我觉得正如他所说。

爱疯

修改f="AAAh.xls"

想学习更保险的办法，不然碰到谁谁要取名为AAAh.xls.xls，还是靠不住

[em04]

爱疯

Sub a()
    Dim xlsfile$, F$
   
    F = "AAA.xls"
    xlsfile = Dir(ActiveWorkbook.Path & "\*.xls")
    Do
        If xlsfile Like F Then
            MsgBox F & " 存在"
            End
        End If
        xlsfile = Dir
    Loop Until Len(xlsfile) = 0
    MsgBox F & " 不存在"
   
End Sub

改了下，即使AAAh.xls和AAAh.xls.xls在一块，也不会误报了。

amulee

用这个FSO对象不是很简单么

Sub MySearch()
    Dim fs As Object
    Dim strFile As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    strFile = ThisWorkbook.Path & "\AAAh.xls" '查找的文件名
    If fs.FileExists(strFile) Then
        MsgBox strFile & "该文件存在"
    Else
        MsgBox "该文件不存在"
    End If
End Sub

爱疯

这个好[em04]

ycb20010823

amulee，你好，代码也非常不错，爱疯都说了，一定好！！哈哈，谢谢你 amulee

ZZCUEEI