Excel 2010 VBA 入门 059 用VBA在工作表中创建文件清单（Dir函数）

最新推荐文章于 2024-07-16 14:53:02 发布

ngbshzhn

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量521

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.csdn.net/ngbshzhn/article/details/115854928

版权

本文介绍了如何使用Excel 2010 VBA中的Dir函数来查找指定路径下的所有文件，结合GetAttr函数判断文件类型（文件或文件夹），并展示了SetAttr语句用于修改文件属性。通过示例代码，解释了如何实现文件清单的创建和文件属性的获取与设置。

摘要由CSDN通过智能技术生成

示例：

读取文件信息是进行多工作簿汇总的基本步骤之一，如图所示，如何利用VBA获取A2单元格所示路径的文件夹下所有的文件清单？

文件路径

文件清单

实现代码

Option Explicit

Sub 创建文件清单()
    Dim sPath As String     '文件路径
    Dim sFileName As String '文件名
    Dim lineRowN As Long    '结果输出行号
    
    '获取文件路径，并加入路径分隔符
    sPath = Cells(2, 1).Value & Application.PathSeparator
    '设定起始行号
    lineRowN = 4
    '查找文件
    sFileName = Dir(sPath & "*", vbDirectory)
    '当文件被找到时循环
    Do While sFileName <> ""
        Cells(lineRowN, 1).Value = sFileName
        '查找下一个
        sFileName = Dir
        '行号递增加
        lineRowN = lineRowN + 1
    Loop
    
End Sub