在日常工作中，我们可能需要提取某个文件夹中所有文件的文件名，并将其导入到Excel表格中，以便更好地管理和使用这些文件。这篇将介绍如何使用Excel VBA实现批量提取文件名到Excel。 步：新建Excel文件

首先，打开Excel并新建一个工作簿，在工作簿中新建一个表格用于存储文件名。

第二步：点击“开发工具”

在Excel顶部菜单栏区域，找到“文件”选项卡并点击它，然后在打开的页面中找到“选项”并点击。接着，在“Excel选项”窗口的左边栏中找到“定制功能区”，这里选择“主选项卡”选项卡即可。

第三步：选中“开发工具”选项卡

在主选项卡页面中，选中“开发工具”选项卡并点击“确定”按钮。这时候，在Excel的顶部工具栏中便出现了“开发工具”选项卡。

第四步：启用“宏”功能

回到Excel的“选项”窗口，在左侧栏中选择“信任中心”-“信任中心设置”-“宏设置”，然后勾选“启用所有宏（不建议）”选项并保存更改，这样Excel就可以正常运行VBA宏。

第五步：打开Visual Basic编辑器

在Excel的“开发工具”选项卡中，找到“Visual Basic”按钮并点击它，这时候Visual Basic编辑器窗口就会弹出。

第六步：编写VBA代码

在Visual Basic编辑器中，找到“当前工作簿”选项，并在其中添加以下代码：

Sub GetFileNames() Dim Path As String Dim FileName As String Dim i As Long Path = "C\Users\example\Desktop\" '文件夹路径 i = 1 '行号从1开始 FileName = Dir(Path & ".") Do While FileName <> "" Worksheets(1).Range("A" & i).Value = FileName '将文件名存入单元格 i = i + 1 '行号加1 FileName = Dir '获取下一个文件名 Loop End Sub 

代码中的“Path”需要替换为你需要提取文件名的文件夹路径。此外，在代码前面添加“Option Explicit”语句，可以避免出现拼写错误等问题。

第七步：运行VBA代码

回到Excel表格中，在“开发工具”选项卡中找到“宏”按钮并点击，弹出“宏”对话框，在其中选择刚刚编写的“GetFileNames”宏并点击“运行”按钮，Excel就会开始批量提取文件名到该表格中。

总结

通过上述步骤，我们就可以轻松地使用Excel VBA实现批量提取文件名到Excel表格中了。通过这种方法，我们可以更加方便地管理和使用存储在文件夹中的文件。