Excel 提取指定目录的文件夹名和文件名怎么实现

发布网友发布时间：2022-04-24 12:25

共1个回答

热心网友时间：2022-05-01 13:25

如果不递归可以用DIR来实现，例如查看C:\的语句：

Option Explicit
Sub 显示文件()
    Dim i&, n$
    i = 1
    n = Dir("C:\*.*")
    While n <> ""
        Cells(i, 1) = n
        i = i + 1
        n = Dir
    Wend
End Sub

上面只显示普通文件，要显示文件夹，需要修改第一个Dir语句为：

Dir("C:\*.*", vbDirectory)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com