Excel如何快速获取文件夹文件信息生成数据源

在Excel中，可以使用VBA（Visual Basic for Applications）宏编程来快速获取文件夹中的文件信息并生成数据源。以下是一个简单的示例，展示如何使用VBA在Excel中实现这一功能：

1. 打开Excel，并按下 Alt + F11 打开VBA编辑器。

2. 在VBA编辑器中，点击 插入 > 模块，创建一个新的模块。

3. 在新模块中，输入以下VBA代码：

Sub GenerateDataSource()
    Dim folderPath As String
    Dim fileName As String
    Dim fileInfoRow As Long
    Dim currentRow As Long

    ' 设置文件夹路径
    folderPath = "C:\\YourFolderPath\\"  ' 替换为你的文件夹路径

    ' 初始化数据源表格
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "DataSource"
    Sheets("DataSource").Cells(1, 1).Value = "File Name"
    Sheets("DataSource").Cells(1, 2).Value = "File Size (bytes)"
    fileInfoRow = 2

    ' 循环遍历文件夹中的文件
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        Sheets("DataSource").Cells(fileInfoRow, 1).Value = fileName
        Sheets("DataSource").Cells(fileInfoRow, 2).Value = FileLen(folderPath & fileName)
        fileInfoRow = fileInfoRow + 1
        fileName = Dir
    Loop
End Sub

1. 在代码中，将 folderPath 替换为你想要获取文件信息的文件夹路径。

2. 关闭VBA编辑器，回到Excel工作表。

3. 按下 Alt + F8 打开宏对话框，选择 GenerateDataSource 宏，然后点击运行。

上述VBA代码会在一个新的工作表中生成一个数据源，包含文件名和文件大小的信息。你可以根据需要对代码进行调整，例如添加更多的文件信息，格式化数据源表格等。