Excel VBA 文件及目录读取
利用 VBA 自动获取文件及文件夹名称
在 Excel VBA 中，我们可以利用 FileSystemObject 对象来访问文件系统，并读取指定目录下的文件名和文件夹名。
具体步骤如下：
- 创建 FileSystemObject 对象：
vba
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
- 获取目标文件夹对象：
vba
Dim folderPath As String
folderPath = "C:YourFolderPath"
Dim folder As Object
Set folder = fso.GetFolder(folderPath)
- 遍历文件夹内的文件：
vba
Dim file As Object
For Each file In folder.Files
Debug.Print file.Name
Next file
- 遍历文件夹内的子文件夹：
vba
Dim subfolder As Object
For Each subfolder In folder.SubFolders
Debug.Print subfolder.Name
Next subfolder
代码说明：
- 将代码中的
C:YourFolderPath替换为实际目标文件夹路径。 file.Name和subfolder.Name分别返回文件名和文件夹名。- 可将
Debug.Print语句替换为其他操作，例如将文件名和文件夹名写入 Excel 单元格。
注意事项：
- 请确保已启用
Microsoft Scripting Runtime引用（在 VBA 编辑器中选择工具 > 引用）。
通过以上代码，即可轻松实现利用 Excel VBA 自动读取文件名和文件夹名的功能。
文件大小：77KB
评论区