Excel2007中用DIR函数批量获取指定目录下所有文件名
发布时间：2023-03-06 19:23:43
由于 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
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
0
投稿猜你喜欢
在win10系统中如果没有资源选项卡，win10如何调整屏幕亮度?不用担心，下面小编为您提供三种调整屏幕亮度的方法。方法一：1.单击左下角的- 大家有时在查看文档时，是否会因为不能集中注意力而无法安心阅读？那就尝试下Word 2013清爽的阅读视图吧。Office 2013中最重要的
- 说到网页保存管理，很多人都想到了CyberArticle网文快捕，它是一款能够方便保存和后期管理网页的软件，能够帮助大家批量管理网页，还能将
- Excel中一列都需要计算减法的结果，一列求减法结果具体该如何计算呢?接下来是小编为大家带来的excel2003一列的减法计算教程，供大家参
- 有些文档会为文本添加底纹来突出该文本的重要性，如果我们觉得wps文字默认的底纹颜色不好看，我们也可以对wps文字的底纹颜色进行修改，那么，怎
- 在Win10系统中，其实是自带远程协助功能的，当在使用电脑遇到一些难以解决问题的时候，那我们就可以开启远程协助帮别人解决问题，那么如何开启远
- 越来越多的用户开始使用Win10系统，但是使用时间长了，难免会遇到大大小小的问题，比如用户使用U盘安装Win10后经常需要选择启动介质，这该
- Edge浏览器是用户常用的浏览器之一，与其它主流理论一样，是支持开发者模式的，网站开发人员可以借助Edge浏览器中的开发者模式来调试网页。且
- 米聊是一款功能强大的即时通讯软件，有了它我们就可以常跟亲戚朋友联系，但是要使用米聊还需要先注册一个账号，那么米聊怎么注册账号呢？不懂得怎么注
- 今天就为大家奉献上Office2016的软件下载和安装，let's go!一、Office2016软件下载下载链接: http://
- Win7系统电脑开机后卡在欢迎界面怎么办？有用户开机时发现电脑无法进入桌面，一直卡在加载界面上，如何解决？系统部落为大家解答。解决办法：1.
- 进入Toshiba笔记本电脑BIOS的一般方法是：开机时按ESC键，在屏幕上出现提示信息时再按F1键即可东芝Toshiba笔记本电脑开机进入
- 在Windows操作系统中，有用户反应不小心将快捷方式的扩展名修改了，导致无法正常使用，该如何将其修改回去呢？在本文中小编给大家分享下快捷方
- 为了更加方便快捷的上网，很多win10系统用户都在电脑中设置了代理服务器，但有些朋友却遇到Windows10系统代理服务器连接失败，网页打不
- 荣耀30pro+是荣耀公司生产一款旗舰智能机，功能强大外观精致，很多忠实的粉丝都对这款产品爱不释手，下面就一起来看看这款手机的详细测评吧。
- word是我们常用的软件，在word中插入表格也可以进行自动求和等公式的运算，但是很多人不知道具体的操作方法，下面就告诉大家。操作方法1.打
- 在wps演示中经常会使用模板来制作文稿，对于主题不符的模板，我们通常需要对其内容进行修改，下面就让小编告诉大家怎样修改wps演示模板。修改w
- 在制作wps幻灯片的时候，怎样在幻灯片中制作一个柱形图呢?下面小编就为你介绍wps演示怎么做柱形图的方法啦!wps演示做柱形图的方法：①启动
- 我们在使用WPS文档过程中经常会添加水印，这样会使得文档更有特点和美观，而公司或者企业经常使用水印则可能是为了给“ * ”做标记，以防被剽
- 最近肯德基加大力度在推广肯德基APP，相信吃货们应该都有下载吧，那你知道肯德基中怎么找到神钱包位置的吗？接下来我们一起往下看看肯德基中找到神
