VBA案例精选 生成文件文件夹目录

代码运行结果:

代码截图:

代码文本:

1. 提取文件夾名稱

Sub Get_SubFolder_Names()    '提取文件夾名稱

Dim RtFolder, nlFolder

Dim xrow As Long

RtFolder = ThisWorkbook.Path & "\"    '这里指定你的根目录

' RtFolder = "C:\Users\Administrator\Desktop\"          '这里指定你的根目录

xrow = 0

With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder)

For Each nlFolder In .subfolders   'subfolders 为子文件

ActiveCell.Offset(xrow) = nlFolder.Name

xrow = xrow + 1

Next nlFolder

End With

End Sub

2. 提取文件名称

Sub kb()    '提取文件名称

i = 1

path1 = ThisWorkbook.Path & "\"    '这里指定你的根目录

'file1 = Dir(path1 & "*.xlsm")

file1 = Dir(path1 & "")

Do While file1 <> ""

Cells(i, 1) = file1

i = i + 1

file1 = Dir

Loop

End Sub

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

---

扫描二维码