• 欢迎访问小朱博客,博主主要从事阿里巴巴国际站运营,WordPress建站,电子商务。如果你也是从事阿里巴巴国际站运营工作,欢迎加入阿里巴巴国际站SEO QQ群
  • 本站所有内容都是我在工作中所遇到的问题,通过搜索引擎查到资料,有自己原创经验分享,有收集来的,记录并分享,方便自己以后查阅。
  • 主要:建站资料,网络推广,服务器,软件分享,办公软件操作,阿里巴巴国际站,国外社交平台,各类工具等等。
  • 好记性不如烂笔头。
  • 如果您觉得本站非常有看点,那么赶紧使用 Ctrl+D 收藏 小朱博客 吧!

Excel提取指定文件夹内的所有文件名

Excel技巧 小朱博客 2年前 (2017-09-10) 201次浏览 0个评论

Excel提取指定文件夹内的所有文件名。

Sub 提取指定文件夹内的所有文件名() '含所有子文件夹内的文件
Dim Fso As Object, arrf$(), mf&
Set Fso = CreateObject("Scripting.FileSystemObject")
Call GetFiles(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path, Fso, arrf, mf)
[b1].Resize(mf) = Application.Transpose(arrf)
Set Fso = Nothing
End Sub
Private Sub GetFiles(ByVal sPath$, ByRef Fso As Object, ByRef arrf$(), ByRef mf&)
Dim Folder As Object
Dim SubFolder As Object
Dim File As Object
Set Folder = Fso.GetFolder(sPath)
For Each File In Folder.Files
mf = mf + 1
ReDim Preserve arrf(1 To mf)
arrf(mf) = File.Name
Next
For Each SubFolder In Folder.SubFolders
Call GetFiles(SubFolder.Path, Fso, arrf, mf)
Next
Set Folder = Nothing
Set File = Nothing
End Sub

 


欢迎浏览小朱博客 , 由小朱发表的:Excel提取指定文件夹内的所有文件名
转载请注明原文链接:https://www.zhudc.com/excel/199
喜欢 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址