如何利用vba代码批量提取文件名及修改日期到Excel表

要通过VBA代码批量提取文件名及修改日期到Excel表中，首先需要通过FileSystmObject对象访问文件系统，接着使用Dir函数或FileSystemObject的方法获取文件夹中的文件信息，然后将获取的信息填充到Excel单元格中。这种自动化处理可以显著提高工作效率、降低错误率，尤其在需要处理大量文件时。

在VBA中，我们可以使用FileSystemObject对象，它提供了一组丰富的属性和方法来访问和修改计算机的文件系统。我们将使用其中的Files属性以及File对象的Name和DateLastModified属性来获取我们需要的信息。这个过程涉及到编写自定义函数、文件系统对象的启用和操作以及与Excel单元格交互。

一、启用文件系统对象

要使用VBA的文件系统对象，必须首先引用Microsoft Scripting Runtime库。

Sub 开启文件系统对象()

    ' 检查是否已经引用了Microsoft Scripting Runtime库
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromGuid _
    "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
    On Error GoTo 0
End Sub

二、定义变量和对象

定义所需的变量和对象，为提取文件名和日期做准备。

Sub 定义变量和对象()

    Dim fso As FileSystemObject
    Dim folder As Folder
    Dim file As File
    Dim path As String
    Dim i As Integer
    ' 指定目录路径
    path = "C:\YourFolder\"
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(path)
    i = 1 ' 起始行数
End Sub

三、写入文件信息到Excel

通过遍历文件夹中的每个文件，将文件名和修改日期信息写入Excel。

Sub 写入文件信息到Excel()

    ' 遍历文件夹，提取文件信息
    For Each file In folder.Files
        With ThisWorkbook.Sheets("Sheet1")
            .Cells(i, 1).Value = file.Name ' 文件名
            .Cells(i, 2).Value = file.DateLastModified ' 修改日期
            i = i + 1
        End With
    Next file
End Sub

四、整合代码并执行

将以上代码段整合成单一的宏，完成从文件提取信息到Excel的操作。

Sub 提取并写入文件信息()

    Dim fso As FileSystemObject
    Dim folder As Folder
    Dim file As File
    Dim path As String
    Dim row As Integer
    ' 启用Microsoft Scripting Runtime引用
    开启文件系统对象
    ' 设置文件夹路径，初始化对象
    path = "C:\YourFolder\" ' 修改为目标文件夹路径
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(path)
    row = 1 ' 确定起始行
    ' 遍历文件夹中的文件，提取信息到Excel
    For Each file In folder.Files
        With ThisWorkbook.Sheets("Sheet1")
            .Cells(row, 1).Value = file.Name ' 文件名
            .Cells(row, 2).Value = file.DateLastModified ' 修改日期
            row = row + 1
        End With
    Next file
    ' 释放对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
    ' 提示完成
    MsgBox "文件信息已提取完成！", vbInformation
End Sub

通过运行提取并写入文件信息宏，你可以把指定文件夹内的所有文件名及修改日期批量提取到当前工作簿的"Sheet1"工作表中。当然，实际的路径、单元格起始点等具体信息需要根据具体情况进行调整。此外，该宏还需在Excel的信任中心中启用宏以及允许访问VBA项目对象模型。上述代码可以处理数千个文件而不会有问题，但在文件数量极多时，建议添加进度显示或分段执行以避免过长时间的等待。

相关问答FAQs：

1. 如何使用VBA代码批量提取文件名到Excel表格？
可以使用VBA编写一个宏来批量提取文件名到Excel表格。首先，打开Excel表格并按下“Alt+F11”快捷键打开VBA编辑器。然后，在新建的模块中编写以下代码：

Sub ExtractFileNames()
    Dim folderPath As String, fileName As String
    Dim rowIndex As Long

    folderPath = "你的文件夹路径"
    rowIndex = 2 '从第二行开始写入数据

    fileName = Dir(folderPath & "\*.*") '获取第一个文件的文件名
    Do While fileName <> ""
        Cells(rowIndex, 1).Value = fileName '将文件名写入第一列
        rowIndex = rowIndex + 1
        fileName = Dir '获取下一个文件的文件名
    Loop
End Sub

将“你的文件夹路径”替换为你要提取文件名的文件夹的路径。运行这个宏后，文件名将会被提取到Excel表格的第一列中。

2. 如何使用VBA代码将文件修改日期提取到Excel表格？
使用VBA代码将文件修改日期提取到Excel表格也相当简单。首先，打开Excel表格并按下“Alt+F11”快捷键打开VBA编辑器。然后，在新建的模块中编写以下代码：

Sub ExtractFileModifyDate()
    Dim folderPath As String, fileName As String
    Dim rowIndex As Long

    folderPath = "你的文件夹路径"
    rowIndex = 2 '从第二行开始写入数据

    fileName = Dir(folderPath & "\*.*") '获取第一个文件的文件名
    Do While fileName <> ""
        Cells(rowIndex, 2).Value = FileDateTime(folderPath & "\" & fileName) '将文件的修改日期写入第二列
        rowIndex = rowIndex + 1
        fileName = Dir '获取下一个文件的文件名
    Loop
End Sub

同样，将“你的文件夹路径”替换为你要提取修改日期的文件夹的路径。运行这个宏后，文件的修改日期将会被提取到Excel表格的第二列中。

3. 如何同时提取文件名和修改日期到Excel表格？
如果你想要同时提取文件名和修改日期到Excel表格，可以将以上两个功能合并到一个宏中。首先，打开Excel表格并按下“Alt+F11”快捷键打开VBA编辑器。然后，在新建的模块中编写以下代码：

Sub ExtractFileNamesAndModifyDates()
    Dim folderPath As String, fileName As String
    Dim rowIndex As Long

    folderPath = "你的文件夹路径"
    rowIndex = 2 '从第二行开始写入数据

    fileName = Dir(folderPath & "\*.*") '获取第一个文件的文件名
    Do While fileName <> ""
        Cells(rowIndex, 1).Value = fileName '将文件名写入第一列
        Cells(rowIndex, 2).Value = FileDateTime(folderPath & "\" & fileName) '将文件的修改日期写入第二列
        rowIndex = rowIndex + 1
        fileName = Dir '获取下一个文件的文件名
    Loop
End Sub

同样，将“你的文件夹路径”替换为你要提取文件名和修改日期的文件夹的路径。运行这个宏后，文件名和修改日期将会被同时提取到Excel表格的第一列和第二列中。

最后建议，企业在引入信息化系统初期，切记要合理有效地运用好工具，这样一来不仅可以让公司业务高效地运行，还能最大程度保证团队目标的达成。同时还能大幅缩短系统开发和部署的时间成本。特别是有特定需求功能需要定制化的企业，可以采用我们公司自研的企业级低代码平台：织信Informat。 织信平台基于数据模型优先的设计理念，提供大量标准化的组件，内置AI助手、组件设计器、自动化（图形化编程）、脚本、工作流引擎（BPMN2.0）、自定义API、表单设计器、权限、仪表盘等功能，能帮助企业构建高度复杂核心的数字化系统。如ERP、MES、CRM、PLM、SCM、WMS、项目管理、流程管理等多个应用场景，全面助力企业落地国产化/信息化/数字化转型战略目标。 版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们微信：Informat_5 处理，核实后本网站将在24小时内删除。