生成文件文件夹目录

代码运行结果:

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