vba 查找打开文件夹的文件

以下代码芹岁改，楼主可以参考，打开文件夹，选择文件后嫌判自动打开

Sub text()

With Application.FileDialog(msoFileDialogFilePicker)

.InitialFileName = ThisWorkbook.Path &"\"

.Title = "请选择对雀携应文本文件"

.AllowMultiSelect = False

If .Show Then f = .SelectedItems(1) Else Exit Sub '

End With

Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " &f, vbMaximizedFocus

End Sub

代码及注释巧派如下：

sub main

dim fs

Set fs = Application.FileSearch'定义fs为文件搜索孝改贺

With fs

.LookIn = "C:\"'搜索位置为C盘根目录

.FileName =worksheets("sheet1").cells(1,1) ’搜索名称为工作表1中的第一个单元格

If .Execute >0 Then'如果搜索结果不为空

For i = 1 To .FoundFiles.Count

worksheets("sheet1").cells(i,2)= .FoundFiles(i)'遍历所有文件，歼段并将之放到第二列中

Next i

Else

MsgBox "There were no files found."'如果找不到，则提示没找到

End If

End With

end sub

Sub aa()

Dim MyFile, MyPath, MyName

MyPath = "c:\abc\"' 指定路径。

MyName = Dir(MyPath, vbDirectory)' 找寻第一项。

Do While MyName <>""' 开始循环。

' 跳过当前的目录及上层目录。

If MyName <>"." And MyName <>".." Then

' 使用位比较来确定 MyName 代表一目录或者文件夹。

If (GetAttr(MyPath &MyName) And vbDirectory) = vbDirectory And MyName = "目标瞎简虚" Then

Debug.Print MyName' 如果它是一个文件夹，且名称为"磨燃目标",将其名称显示出来。

End If

End If

MyName = Dir' 查找下一个目录。

Loop

End Sub

若非要使用FileSearch方法,就需要使用FileSearch下面的属性:SearchFolders

这样子的Application.FileSearch.SearchFolders,具体用法详咐纯见excel帮助

---