查找文件或文件夹

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

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

x

Option Explicit4 s; e" n+ S- n( @! o! a! o$ v* ?
Sub mydir()( O1 _' D, g. @" p' A
Dim mydir As String# T _4 q% [5 Z4 e' W& ?: S
Dim b As Byte- R) D3 f V& m8 ^- k7 K1 X F n
b = 2 '因为有表头，所以从第2行开始* k B6 _; B, b; K
Range("A:A").ClearContents '清空A列数据，也可以写成 A2:A100
! D' B/ ?. h8 L F3 G4 p
mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal) '列出ABC文件夹下所有文件
- P) c% [/ l" s/ v, n+ f1 |& P5 s
Do While mydir <> ""
# u, L5 z0 l, i
Cells(b, 1) = mydir
& L" S+ b3 k5 {
'Debug.Print mydir- F. g5 E! [1 d: I& \1 e# l
mydir = Dir
8 y+ c4 e/ A4 f9 H' Z$ n1 |
b = b + 1
1 T* L% o- @" z0 b4 B
Loop: a7 d5 W( u4 }% y
End Sub

复制代码

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

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