VBA與ChatGPT深入交互：批量導(dǎo)入文件名到Excel

步驟1：?jiǎn)?dòng)Excel

首先，打開Microsoft Excel，然后打開你想導(dǎo)入文件名的工作簿。

步驟2：打開VBA編輯器

在鍵盤上同時(shí)按下 Alt 和 F11 鍵，這將打開VBA編輯器。

步驟3：插入新的模塊

在VBA編輯器中，點(diǎn)擊菜單欄中的 插入 選項(xiàng)，然后選擇 模塊。這會(huì)在項(xiàng)目瀏覽器（通常在左側(cè)）中插入一個(gè)新的模塊。

步驟4：復(fù)制和粘貼代碼

復(fù)制上面的VBA代碼，然后粘貼到新模塊的代碼窗口中（通常在右側(cè)）。

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" 更改為你想要寫入數(shù)據(jù)的工作表的實(shí)際名稱。

? 修改文件夾路徑：將代碼中的 "C:\Users\Administrator\Desktop\圖片" 更改為你實(shí)際的文件夾路徑。

步驟6：運(yùn)行代碼

點(diǎn)擊VBA編輯器菜單欄上的 運(yùn)行 或 F5，運(yùn)行剛剛插入的代碼。

步驟7：檢查結(jié)果

回到Excel工作簿，你應(yīng)該在指定的工作表中看到從指定文件夾導(dǎo)入的所有文件名（不包括文件擴(kuò)展名），從第二行的A列開始。

注意：在運(yùn)行VBA代碼前，請(qǐng)確保你的Excel設(shè)置已啟用宏，并允許運(yùn)行VBA代碼。另外，這個(gè)程序沒有考慮一些可能出現(xiàn)的錯(cuò)誤，例如文件夾不存在、文件夾中沒有文件或者沒有讀取文件的權(quán)限等等，這些情況可能會(huì)導(dǎo)致運(yùn)行錯(cuò)誤。