如何通过VBA将文件夹中的所有文件名列表复制到Excel工作表中

Excel 解决方案 2025 年 10 月 3 日
立即分享：

在工作表中收集所有文件名对您的工作非常重要。 在本文中，我们将介绍一种使用 VBA 宏将所有文件名输入工作表的方法。

在上一篇文章中 将文件夹中所有文件名列表复制到 Excel 工作表的 2 种方法，我们介绍了两种方法来将文件夹中的所有文件名列出到工作表中。 现在我们找到了另一种方法。 您也可以使用 VBA 宏来完成此任务。 按照以下步骤操作，看看如何使用它。

复制文件夹中所有文件名的列表

  1. 打开需要输入文件名的工作簿。
  2. 然后按下键盘上的快捷键“Alt+F11”，打开Visual Basic编辑器。
  3. 之后，单击工具栏中的“插入”选项卡。
  4. 接下来在下拉列表中选择“模块”选项。 因此，您已在编辑器中插入了一个新模块。插入模块
  5. 在这一步中，将以下代码复制到新模块中：
Sub ListAllFileNames()
  Dim strTargetFolder As String, strFileName As String, nCountItem As Integer

  '  Initialization
  nCountItem = 1
  strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\"
  strFileName = Dir(strTargetFolder, vbDirectory)

  '  Get the file name
  Do While strFileName <> ""
    If strFileName <> "." And strFileName <> ".." Then
      Cells(nCountItem, 1) = strFileName
      nCountItem = nCountItem + 1
    End If
    strFileName = Dir
  Loop
End Sub

在这个宏中，您需要根据实际需要更改目标文件夹。我们会将文件名输入到工作表的 A 列。如果您需要将文件名输入到其他区域，也可以修改代码。

  1. 之后，运行这个宏。 您可以单击工具栏中的“Run Sub”按钮或按键盘上的“F5”按钮来运行该宏。
  2. 接下来回到工作表。 你会发现文件夹中的所有文件名都已经出现在A列中了。成果

对比文章中的其他两种方法 将文件夹中所有文件名列表复制到 Excel 工作表的 2 种方法，你会发现使用 VBA 宏非常方便。 但是，另一方面，如果您不熟悉Excel VBA，那么在修改代码时就会遇到错误。 因此，您可以根据实际需要使用三种方法中的一种。

注意危险软件

您肯定会在计算机中安装很多软件。 这些应用程序可以在您的工作中为您提供很多帮助。 但是，其中一些是危险的应用程序。 一旦您将它们安装到您的计算机中，它们就会收集您的个人信息。 更糟糕的是，您的 Excel 文件也会被它们损坏。 此时，请立即卸载危险软件。 此外，您还需要使用恢复工具来 修复损坏的 xlsx 文件. 因此，您可以确保您的 Excel 文件是安全的。

作者简介：

Anna Ma 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复Word docx文件问题 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。