如何将多个文件名导入Excel中的单元格？

网友投稿 175 2024-01-02

如何将多个文件名导入Excel中的单元格？

假设您有一个包含数百个文件的文件夹，现在，您要将这些文件名导入工作表的单元格中。一个接一个地复制和粘贴将花费大量时间，在本文中，我将讨论一些快速技巧，以帮助您将一个文件夹中的多个文件名导入到工作表中。

使用VBA代码将多个文件名导入工作表单元格

将多个文件名导入工作表单元格 Kutools for Excel

使用VBA代码将多个文件名导入工作表单元格

以下VBA代码可以帮助您将文件名，文件扩展名和文件夹名称导入工作表单元格，请执行以下步骤：

1。启动您要导入文件名的新工作表。

2。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

3。点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：将多个文件名导入工作表的单元格

Sub GetFileList() updateby Extendoffice Dim xFSO As Object Dim xFolder As Object Dim xFile As Object Dim xFiDialog As FileDialog Dim xPath As String Dim i As Integer Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFiDialog.Show = -1 Then xPath = xFiDialog.SelectedItems(1) End If Set xFiDialog = Nothing If xPath = "" Then Exit Sub Set xFSO = CreateObject("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder(xPath) ActiveSheet.Cells(1, 1) = "Folder name" ActiveSheet.Cells(1, 2) = "File name" ActiveSheet.Cells(1, 3) = "File extension" i = 1 For Each xFile In xFolder.Files i = i + 1 ActiveSheet.Cells(i, 1) = xPath ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1) ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1) Next End Sub

Copy

4. 然后按 F5 键执行此代码，然后在弹出的“浏览”窗口中，选择要导入文件名形式的文件夹，请参见屏幕截图：

5。然后点击 OK 按钮，您将得到以下结果：

备注：如果您的特定文件夹中有子文件夹，则不会导入子文件夹中的文件名。

将多个文件名导入工作表单元格 Kutools for Excel

如果您需要同时在文件夹和子文件夹中导入文件名，请不要担心，使用 Kutools for Excel“ 文件名列表 实用程序，您可以轻松地导入特定文件夹（包括子文件夹）中的所有文件名。

Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.

前往下载30天免费试用购买贝宝/ MyCommerce

安装后 Kutools for Excel，请执行以下操作：

1。点击 Kutools 加> 进出口 > 文件名列表，请参见屏幕截图：

2。在 文件名列表 对话框中，进行以下操作：

（1.）点击按钮选择包含要导入文件的文件夹；

（2.）检查 在子目录中包含文件 导入子文件夹的文件名；

（3.）在“文件名”下指定要导入的文件类型。 档案类型 部分;

（4.）从菜单中选择要显示的文件大小单位。 文件大小单位 部分;

（5.）如果要超链接文件名和文件夹，请检查 创建超链接 选项。

3。完成设置后，请点击 OK 按钮，文件夹和子文件夹中的文件名都被导入到新的工作表中，如以下屏幕截图所示：

Tips：如果只想从特定文件夹导入一种指定类型的文件名，则可以检查指定在选项 文件名列表 对话框，然后在其中输入文件扩展名，那么它将仅从文件夹和子文件夹中导入指定类型的文件名。