在日常工作中，我们常常需要处理大量的文件，并从中提取相关信息进行整理和分析。例如，从一个文件夹中提取所有文件的名称并记录到Excel表格中。虽然手动复制粘贴可以完成这项任务，但效率较低且容易出错。本文将介绍一种高效的方法，利用Excel的功能实现批量提取文件名称。
方法步骤
1. 准备文件夹
首先，确保所有需要提取名称的文件都放在同一个文件夹中。这样可以方便后续操作。
2. 打开Excel
启动Excel软件，新建一个工作簿。
3. 启用“开发工具”选项卡
如果你的Excel没有显示“开发工具”选项卡，请按照以下步骤启用：
- 点击左上角的“文件”菜单。
- 选择“选项”，打开“Excel选项”对话框。
- 在左侧菜单中选择“自定义功能区”。
- 在右侧主界面勾选“开发工具”选项。
- 点击“确定”保存设置。
4. 插入VBA代码
- 转到“开发工具”选项卡，点击“Visual Basic”按钮，打开VBA编辑器。
- 在VBA编辑器中，点击菜单栏的“插入”，然后选择“模块”。
- 将以下VBA代码粘贴到模块窗口中：
```vba
Sub ExtractFileNames()
Dim ws As Worksheet
Dim folderPath As String
Dim fileName As String
Dim rowCounter As Integer
' 设置工作表
Set ws = ThisWorkbook.Sheets(1)
rowCounter = 1
' 获取文件夹路径
folderPath = InputBox("请输入文件夹路径：", "文件夹路径")
' 检查路径是否为空
If folderPath = "" Then Exit Sub
' 遍历文件夹中的文件
fileName = Dir(folderPath & "\.")
Do While fileName <> ""
' 将文件名写入Excel
ws.Cells(rowCounter, 1).Value = fileName
rowCounter = rowCounter + 1
fileName = Dir
Loop
End Sub
```
5. 运行宏
- 关闭VBA编辑器，返回Excel主界面。
- 按下Alt+F8，打开“宏”对话框。
- 选择刚刚创建的宏“ExtractFileNames”，点击“运行”。
- 系统会提示输入文件夹路径，输入目标文件夹的完整路径后确认。
6. 查看结果
宏执行完成后，文件夹中的所有文件名将被自动填充到Excel的第一个列中。
注意事项
- 确保文件夹路径正确无误，否则可能导致错误或无法提取文件名。
- 如果文件夹中包含子文件夹，此方法只会提取当前文件夹下的文件，不会递归提取子文件夹的内容。
- 提取过程中可能会遇到中文字符乱码问题，建议检查文件名编码格式。
通过上述方法，我们可以轻松地使用Excel批量提取文件名称，极大地提高了工作效率。希望本文对你有所帮助！
