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

2021年4月11日10:06:47 评论 58 views
微信公众号 【EXCEL880】 QQ群【165159540】
Excel课程咨询 请加郑广学老师微信EXCEL880B

生成文件文件夹目录

代码运行结果:

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

代码运行结果

代码截图:

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

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297

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

发表评论

您必须才能发表评论!