如何通過VBA將文件夾中的所有文件名列表複製到Excel工作表中

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

收集工作表中的所有文件名對您的工作非常重要。 在本文中，我們將介紹一種使用VBA宏將所有文件名輸入到工作表中的方法。

在上一篇文章中 2種將文件夾中所有文件名列表複製到Excel工作表中的方法，我們引入了兩種方法來將文件夾中的所有文件名列出到工作表中。 現在我們找到了另一種方法。 您也可以使用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. 之後，運行此宏。 您可以單擊工具欄上的“運行子”按鈕或按鍵盤上的“ F5”按鈕運行該宏。
  2. 接下來回到工作表。 您會發現文件夾中的所有文件名已經出現在A列中。結果

與本文中的其他兩種方法比較 2種將文件夾中所有文件名列表複製到Excel工作表中的方法，您會看到使用VBA宏非常方便。 但是，另一方面，如果您不熟悉Excel VBA，則在修改代碼時會遇到錯誤。 因此，您可以根據實際需要使用三種方法之一。

注意危險軟件

您肯定會在計算機上安裝很多軟件。 這些應用程序可以為您的工作提供很大幫助。 但是，其中一些是危險的應用程序。 將它們安裝到計算機中後，它們將收集您的個人信息。 更糟糕的是，您的Excel文件也將受到損壞。 此時，請立即卸載危險軟件。 此外，您還需要使用恢復工具 修復損壞的xlsx文件。 因此，您可以確保Excel文件是安全的。

作者簡介：

Anna Ma是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復Word docx文件問題 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。