查找文件或文件夹

admin · 发表于 2020-4-6 13:44:20

您需要登录才可以下载或查看，没有账号？注册

x

Option Explicit
( G0 T1 m8 x' N! S% r0 d( b
Sub mydir()7 b7 B7 y H, ]* N! t4 p
Dim mydir As String3 y' n' S E7 H& ^
Dim b As Byte) A7 Z* L7 O1 A1 i5 q. }
b = 2 '因为有表头，所以从第2行开始 ~( w8 _$ F" w3 A& c
Range("A:A").ClearContents '清空A列数据，也可以写成 A2:A100" m3 X2 Q" C3 l
mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal) '列出ABC文件夹下所有文件
' S" W/ N7 m- j; Y6 `
Do While mydir <> ""
& H5 F) Z6 T. ^. ^; |
Cells(b, 1) = mydir: d0 n4 h: T) X: H/ h( `
'Debug.Print mydir, D( @: N7 F2 `+ J
mydir = Dir
: W- z: S6 ~% G9 j5 A
b = b + 1; Q4 ^! j4 d8 h! x
Loop+ K& E- X r, r
End Sub

复制代码

		自动登录	找回密码
密码			注册

[Excel课程] 查找文件或文件夹