文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 自定义函数 我想要列出文件夹及其子文件夹中名为 test 的 Excel 文件，如何使用 VBA 程序实现？ 使用下面的程序，假设文件夹路径为： C:\Users\excelperfect\Desktop\ 未完成。你可以根据实际情况修改该路径。 Sub test() Dim lst As ListBox Dim i As Long ListFiles "C : \Users\excelperfect\Desktop\未完成", "*st.xls*", True, lst On Error Resume Next For i = 0 To lst.ListCount - 1 Debug.Print lst.List(i).Value Next End Sub '目的 : 列出路径中的文件. '参数 : strPath = 要搜索的路径. ' strFileSpec = "*.*" 除非另有指定. ' bIncludeSubfolders: 如果为True,同时从strPath的子文件夹中返回结果. ' lst: 如果传递到列表框, 则在其中添加项. 如果不, 则将文件在立即窗口列出. ' 列表框必须具有其Row Source Type属性设置为Value列表. '方法 : FilDir()
………………………………
