微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
生成文件文件夹目录
代码运行结果:
代码截图:
代码文本:
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
VBA编辑神器放送
VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐 VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297