作者：乔山办公网日期：
返回目录：excel表格制作
录制宏，筛选一次就ok了
你可以录制宏后看看代码。挺简单的。
写了一小部分，可以获取文件夹下所有文件名称，路径，大小，创建日期，不知道能7a686964616fe58685e5aeb9330否对你有帮助。
1.添加VBA代码，选择新插入的模块后，插入以下代码
Sub getpath()
Range("A2:C1000").ClearContents '清空A2：C1000列
On Error Resume Next
Dim shell As Variant
Set shell = CreateObject("Shell.Application")
Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "") '获取文件夹路径地址
Set shell = Nothing
If filePath Is Nothing Then '检测是否获得有效路径，如取消直接跳出程序
Exit Sub
Else
gg = filePath.Items.Item.Path
End If
Set obj = CreateObject("Scripting.FileSystemObject") '定义变量
Set fld = obj.getfolder(gg) '获取路径
For Each ff In fld.Files '遍历文件夹里文件
m = m + 1
Cells(m + 1, 1) = ff.Name
Cells(m + 1, 2) = ff.Path
Cells(m + 1, 3) = ff.Size
Cells(m + 1, 4) = ff.DateCreated
Next
End Sub
2.运行宏（alt+F8），宏的名称为getpath
宏代码如下知：
Sub 筛选()
For i = 1 To Sheets(1).[j65536].End(3).Row
If Sheets(1).Cells(i, 10) Like "*花都*" Then '注凡Sheet1J列含有“花道都”版二字的记录均被视为符合权要求。
a = Sheets(2).[j65536].End(3).Row + 1
Sheets(1).Range(i & ":" & i).Copy Sheets(2).Range(a & ":" & a)
End If
Next
End Sub