摘要： 由于 Excel2007 及 Excel2010 版本都取消了对 Application 对象的 FileSearch 方法的支持，所以在 Excel2007 版本以后不能用 FileSearch 来批量获取指定目录下的所有文件名了，虽然少... 由于 Excel2007 及 Excel2010 版本都取消了对 Application 对象的 FileSearch 方法的支持，所以在 Excel2007 版本以后不能用 FileSearch 来批量获取指定目录下的所有文件名了，虽然少了 FileSearch 但还可以用内置的 Dir 函数。代码如下：
Sub listfile()
””””””””””””””””””””””’
‘ Dir函数批量获取指定目录下所有文件名和内容 ‘
‘ ‘
””””””””””””””””””””””’
Dim mypath As String, nm As String
Dim theSh As Object
Dim theFolder As Object
Dim i As Integer
如何让excel中隐藏过行和列的地方显示标记？
问题：如何让隐藏过行和列的地方显示标记？ 解答：利用设置分组显示功能轻松搞定。 具体操作如下： 打开工作表，假设要隐藏“虚竹”和“杨过”的数据行，可以选中其所在的行。（如下图1处所示） 然后单击“数据”-“创建组”
Application.ScreenUpdating = False
On Error Resume Next
‘设置搜索路径
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
If Not theFolder Is Nothing Then
mypath = theFolder.Items.Item.Path
End If
‘//////////////搜索开始////////////////
nm = Dir(mypath & "\*.*") ‘第一次使用dir，必须指定pathname参数，返回符合条件的第1个文件名
i = 1
Range("a1") = nm ‘单元格A1返回找到的第一个文件名
Do While nm <> ""
nm = Dir ‘再次调用不需要pathname参数
Range("a" & i 1) = nm
i = i 1
Loop
Application.ScreenUpdating = True
End Sub
Excel获取指定类型的文件名
在Excel VBA中，如果需要Excel获取指定类型的文件名以方便用户的操作体验，可通过VBAExcel获取指定类型的文件名。Excel2003可通过VBA宏Excel获取指定类型的文件名。 Excel获取指定类型的文件名的方法： 首先按“Alt F11”组合键，Excel2003打开代码编辑
