查找文件或文件夹

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

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

x

Option Explicit8 l7 w5 M w" w* w& X0 m% ~1 M4 M
Sub mydir()% a! @ H+ |" Y% f+ k# y
Dim mydir As String- a" K. q; L0 F+ A4 h- h# n
Dim b As Byte/ o* b6 n4 m& U6 `
b = 2 '因为有表头，所以从第2行开始' E* |6 D& b' v2 h4 t- T# A/ E
Range("A:A").ClearContents '清空A列数据，也可以写成 A2:A100
1 ^; S' i- g, ? B8 U
mydir = Dir(ThisWorkbook.Path & "\abc\*.*", vbNormal) '列出ABC文件夹下所有文件: B" V7 t8 T4 D1 G) d# X1 _
Do While mydir <> ""
- C2 A' j/ r" O4 A7 i; @
Cells(b, 1) = mydir9 J% I6 N. N1 \9 _4 p3 {& K
'Debug.Print mydir/ M- v3 k' S. u" M& L
mydir = Dir, {, R* `9 a' Z5 f6 F! Y
b = b + 1) h8 }8 h! ]. z6 x$ H6 Z
Loop) E! a- A' S( E' a# d
End Sub

复制代码

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

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