VBA与ChatGPT深入交互：批量导入文件名到Excel

步骤1：启动Excel

首先，打开Microsoft Excel，然后打开你想导入文件名的工作簿。

步骤2：打开VBA编辑器

在键盘上同时按下 Alt 和 F11 键，这将打开VBA编辑器。

步骤3：插入新的模块

在VBA编辑器中，点击菜单栏中的 插入 选项，然后选择 模块。这会在项目浏览器（通常在左侧）中插入一个新的模块。

步骤4：复制和粘贴代码

复制上面的VBA代码，然后粘贴到新模块的代码窗口中（通常在右侧）。

Sub ImportFileNames()

  Dim objFSO As Object

  Dim objFolder As Object

  Dim objFile As Object

  Dim ws As Worksheet

  Dim i As Integer

  Set objFSO = CreateObject("Scripting.FileSystemObject")

  Set ws = ThisWorkbook.Sheets("Sheet1") '更改Sheet1为你的工作表名称

  Set objFolder = objFSO.GetFolder("C:\Users\Administrator\Desktop\图片") '更改为你的文件夹路径

  i = 2 '从A2开始

  For Each objFile In objFolder.Files

    ws.Cells(i, 1).Value = Left(objFile.Name, (InStrRev(objFile.Name, ".", -1, vbTextCompare) - 1))

    i = i + 1

  Next objFile

  Set objFolder = Nothing

  Set objFile = Nothing

  Set objFSO = Nothing

End Sub

步骤5：修改代码（如有需要）

在代码中，你可能需要修改工作表名或文件夹路径。

• 修改工作表名：将代码中的 "Sheet1" 更改为你想要写入数据的工作表的实际名称。

• 修改文件夹路径：将代码中的 "C:\Users\Administrator\Desktop\图片" 更改为你实际的文件夹路径。

步骤6：运行代码

点击VBA编辑器菜单栏上的 运行 或 F5，运行刚刚插入的代码。

步骤7：检查结果

回到Excel工作簿，你应该在指定的工作表中看到从指定文件夹导入的所有文件名（不包括文件扩展名），从第二行的A列开始。

注意：在运行VBA代码前，请确保你的Excel设置已启用宏，并允许运行VBA代码。另外，这个程序没有考虑一些可能出现的错误，例如文件夹不存在、文件夹中没有文件或者没有读取文件的权限等等，这些情况可能会导致运行错误。