怎么把文件名提取到excel

要将文件名提取到Excel中，可以使用多种方法，如批处理文件、VBA宏脚本、Python脚本等方法。最推荐的方法包括使用批处理文件、Python脚本、以及Excel的VBA宏。这些方法可以有效、快速地将大量文件名提取到Excel中。以下将详细描述其中一种方法：使用Excel的VBA宏脚本。

VBA宏脚本的优势包括：自动化操作、易于维护、与Excel高度集成。

一、准备工作

1、启用开发者工具

在Excel中，要使用VBA，需要先启用开发者工具。你可以通过以下步骤启用：

打开Excel，点击左上角的“文件”选项卡。
选择“选项”。
在Excel选项窗口中，选择“自定义功能区”。
在右侧的主选项卡列表中，勾选“开发工具”，然后点击“确定”。

2、打开VBA编辑器

启用开发者工具后，点击“开发工具”选项卡，然后点击“Visual Basic”按钮，进入VBA编辑器。

二、编写VBA宏代码

在VBA编辑器中，我们需要编写一个宏来提取文件名并将其写入Excel。

1、创建新模块

在VBA编辑器中，右键点击你的项目，选择“插入” -> “模块”，创建一个新模块。

2、编写代码

在新模块中，编写以下代码：

Sub ListFiles()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Integer
    Dim ws As Worksheet
    ' 选择要列出文件名的工作表
    Set ws = ThisWorkbook.Sheets(1)
    ' 设置文件夹路径
    folderPath = "C:YourFolderPathHere"
    ' 初始化行号
    i = 1
    ' 获取第一个文件名
    fileName = Dir(folderPath & "*.*")
    ' 循环遍历文件夹中的所有文件
    Do While fileName <> ""
        ' 将文件名写入Excel
        ws.Cells(i, 1).Value = fileName
        ' 获取下一个文件名
        fileName = Dir
        ' 移动到下一行
        i = i + 1
    Loop
End Sub

3、修改代码

将代码中的 folderPath 修改为你要提取文件名的文件夹路径。

4、运行宏

关闭VBA编辑器，回到Excel工作表。在“开发工具”选项卡下，点击“宏”按钮，选择你刚刚创建的 ListFiles 宏，然后点击“运行”。

三、验证结果

运行宏后，你会看到文件夹中的所有文件名已经被提取并写入到Excel工作表的第1列中。你可以根据需要对这些数据进行进一步处理，如排序、筛选等。

四、扩展功能

1、提取子文件夹中的文件名

你可以修改代码，以递归方式提取子文件夹中的文件名。以下是修改后的代码：

Sub ListFilesRecursive()
    Dim folderPath As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    folderPath = "C:YourFolderPathHere"
    Call ListFilesInFolder(folderPath, ws, 1)
End Sub
Sub ListFilesInFolder(folderPath As String, ws As Worksheet, ByRef i As Integer)
    Dim fileName As String
    Dim folderName As String
    ' 获取第一个文件名
    fileName = Dir(folderPath & "*.*")
    ' 遍历文件
    Do While fileName <> ""
        ws.Cells(i, 1).Value = folderPath & fileName
        fileName = Dir
        i = i + 1
    Loop
    ' 遍历子文件夹
    folderName = Dir(folderPath & "*", vbDirectory)
    Do While folderName <> ""
        If folderName <> "." And folderName <> ".." Then
            If (GetAttr(folderPath & folderName) And vbDirectory) = vbDirectory Then
                Call ListFilesInFolder(folderPath & folderName & "", ws, i)
            End If
        End If
        folderName = Dir
    Loop
End Sub

2、提取文件的其他属性

除了文件名，你还可以提取文件的其他属性，如文件大小、创建日期、修改日期等。可以使用 FileSystemObject 来实现：

Sub ListFilesWithAttributes()
    Dim folderPath As String
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim i As Integer
    Dim ws As Worksheet
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ws = ThisWorkbook.Sheets(1)
    folderPath = "C:YourFolderPathHere"
    Set folder = fso.GetFolder(folderPath)
    i = 1
    For Each file In folder.Files
        ws.Cells(i, 1).Value = file.Name
        ws.Cells(i, 2).Value = file.Size
        ws.Cells(i, 3).Value = file.DateCreated
        ws.Cells(i, 4).Value = file.DateLastModified
        i = i + 1
    Next file
End Sub

五、总结

本文介绍了如何使用Excel VBA宏脚本将文件名提取到Excel中，并详细描述了具体的步骤和代码实现。通过这些方法，你可以方便地管理和处理大量文件名，提升工作效率。你还可以根据需要扩展功能，提取文件的更多属性，满足不同的需求。通过掌握这些技巧，你将能够更好地利用Excel进行数据处理和自动化操作。