【VBA】遍历目录
Option Explicit
Sub dirtst()
Dim f As String, i As Long
f = Dir("C:\Users\i\Downloads\")
Cells(1, "A") = f
i = 2
Do While f <> ""
f = Dir
Cells(i, "A") = f
i = i + 1
Loop
End Sub
f = Dir("C:\Users\i\Downloads\*.xlsx") 只返回xlsx文件。
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可。
大佬啊!
先码为敬。
做个日常笔记而已啦,毕竟抄来的工具,哈哈哈。。