查找文件或文件夹

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

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

x

Option Explicit
) i, Q$ p/ x6 ]8 C
Sub mydir()0 p3 m2 h! @; ]. D
Dim mydir As String
$ K2 ]/ c$ X, ^" @& _
Dim b As Byte2 g3 W) ?) P7 l" N, t
b = 2 '因为有表头，所以从第2行开始# r- e7 x- D- Y9 i' {
Range("A:A").ClearContents '清空A列数据，也可以写成 A2:A100 ^9 n9 }) j6 S: s4 t
mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal) '列出ABC文件夹下所有文件# H! i& f8 D- r5 O6 e
Do While mydir <> ""
' X2 c& R& V/ }
Cells(b, 1) = mydir, S" M# I8 K( Y
'Debug.Print mydir
]9 _6 i% P+ g2 ^+ b+ u3 z" ~0 G
mydir = Dir
6 g# S1 `. L- [) V0 _2 k9 e) B
b = b + 1 F* R* y! \8 V4 z
Loop% j y5 T! y6 d t2 Q) z4 S
End Sub

复制代码

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

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