📚妙招分享✨用VBA轻松搞定文件名批量提取！💼
发布时间：2025-04-08 16:04:13来源：
你是不是经常需要整理文件夹里的文件名？手动复制黏贴太麻烦了？别担心，今天教你用Excel VBA快速搞定！👇
首先打开你的Excel文件，按`Alt + F11`进入VBA编辑器。然后点击`插入` -> `模块`，粘贴以下代码：
```vba
Sub ListFiles()
Dim fso As Object, folder As Object, file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\Your\Folder\Path") ' 修改为你自己的文件夹路径
For Each file In folder.Files
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = file.Name
Next file
End Sub
```
运行后，文件夹内的所有文件名就会乖乖出现在Excel的第一个列里啦！🌟
再也不用担心繁琐的手动操作，效率UP UP！💪快来试试吧！
免责声明：本答案或内容为用户上传，不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。 如遇侵权请及时联系本站删除。
