Excel2007中用DIR函数批量获取指定目录下所有文件名

Excel2007中用DIR函数批量获取指定目录下所有文件名

由于 Excel2007 及 Excel2010 版本都取消了对 Application 对象的 FileSearch 方法的支持，所以在 Excel2007 版本以后不能用 FileSearch 来批量获取指定目录下的所有文件名了，虽然少了 FileSearch 但还可以用内置的 Dir 函数。代码如下：

Sub listfile()””””””””””””””””””””””’‘ Dir函数批量获取指定目录下所有文件名和内容 ‘‘ ‘””””””””””””””””””””””’Dim mypath As String, nm As StringDim theSh As ObjectDim theFolder As ObjectDim i As Integer

Application.ScreenUpdating = FalseOn Error Resume Next‘设置搜索路径Set theSh = CreateObject("shell.application")Set theFolder = theSh.BrowseForFolder(0, "", 0, "")If Not theFolder Is Nothing Thenmypath = theFolder.Items.Item.PathEnd If‘//////////////搜索开始////////////////

nm = Dir(mypath & "\*.*") ‘第一次使用dir，必须指定pathname参数，返回符合条件的第1个文件名i = 1Range("a1") = nm ‘单元格A1返回找到的第一个文件名 Do While nm <> ""nm = Dir ‘再次调用不需要pathname参数Range("a" & i + 1) = nmi = i + 1LoopApplication.ScreenUpdating = True

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。