软件:excel
版本:2007
因为要取得某个资料夹下所有子资料夹所有档案的名称(只要档案名称不要资料夹)
vba如下:
filepath是已经指定好的路径上面已经定义好
buf = Dir(filepath & "*.*")
If buf = "" Then
MsgBox "找不到档案"
Exit Sub
End If
Do While buf <> ""
cnt = cnt + 1
Sheets("设定").Range("A" & cnt) = buf
buf = Dir()
Loop
不知道这边要怎么修改
感谢大大

以filesystemobject，巢状循环于subfolders和files集合