这个强大的目录生成，可以加个获取条件吗

qqhsx

附件中自动获取很好用很强大，只是获取的是全部的文件名，我想获取某关键词的文件 名如：.XLS、 X.rar 等关键字的文件名可以自己设定。


纯小白一只不知道怎么下手，大老帮帮忙谢谢

约定的童话

直接说需要什么样的要求，改别人的比较麻烦

qqhsx

约定的童话 发表于 2019-9-17 14:05
直接说需要什么样的要求，改别人的比较麻烦

我要提取指定目录下的所有子目录的文件名（要可以设定提取指定关键字的文件名），打开表格可以设定自动更新或手动更新，如上附件基本可以达到要求，就是不能设定提取指定关键字的文件名。

约定的童话

qqhsx 发表于 2019-9-17 14:22
我要提取指定目录下的所有子目录的文件名（要可以设定提取指定关键字的文件名），打开表格可以设定自动更 ...

可以模拟几个文件试一下，结果也模拟一下

qqhsx

约定的童话 发表于 2019-9-17 15:01
可以模拟几个文件试一下，结果也模拟一下

就像我发附件那样，麻烦大老看看

YZC51

qqhsx 发表于 2019-9-17 15:10
就像我发附件那样，麻烦大老看看

文件打开错误！

qqhsx

YZC51 发表于 2019-9-17 16:36
文件打开错误！

我这Excel 2010版的打开没出现任何错误提示呀，我另存一个版本你再试试呀

YZC51

qqhsx 发表于 2019-9-17 16:43
我这Excel 2010版的打开没出现任何错误提示呀，我另存一个版本你再试试呀

可以打开了
这样试试
Sub test()
    i = tmp_rows
    j = 1
    '===============================================================
    '浏览目录
    spath = ""
    Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = spath
    With Application.FileDialog(msoFileDialogFolderPicker)
         .ButtonName = "确定"
        If .Show = True Then
            spath_tmp = .SelectedItems(1)
            spath = .SelectedItems(1)
        End If
    End With
     
    '==================================================================
        Range("a1:j1").Merge
        Cells(1, 1) = "文件夹名"
        Cells(1, 11) = "文件名称"
        Cells(1, 12) = "文件大小"
        Cells(1, 13) = "类型"
        Cells(1, 14) = "创建时间"
        Cells(1, 15) = "修改时间"
    ct_spath_tmp = spath
    If Application.WorksheetFunction.CountIf(Sheet3.Range("B:B"), ct_spath_tmp) = 1 Then
        MsgBox "已有该目录信息,将退出."
        Exit Sub
    End If
   
    If spath = "" Then Exit Sub
    Call 展开文件夹
    Call 获得当前文件夹名
'    spath = spath & "\"
    spath = spath & "\*.xl*"
    Call 获取当前文件名
    Call getfolder(spath)
    Call 设置目录线
End Sub

qqhsx

YZC51 发表于 2019-9-17 16:56
可以打开了
这样试试
Sub test()

大神厉害，这个代码可以