excel如何列举指定文件名

① Excel VBA列出某文件夹下子文件夹及文件名

遍历文件夹 并列出文件 & 文件夹 名 代码如下：

在文件夹内 新建 个 Excel文件

Excel文件内 按 Alt+F11 视图--代码窗口， 把如下代码复制进去， F5运行

Sub遍历文件夹()
'OnErrorResumeNext
Dimfn(1To10000)AsString
Dimf,i,k,f2,f3,x
Dimarr1(1To100000,1To1)AsString,qAsInteger
Dimt
t=Timer
fn(1)=ThisWorkbook.path&""
i=1:k=1
DoWhilei<UBound(fn)
Iffn(i)=""ThenExitDo
f=Dir(fn(i),vbDirectory)
Do
IfInStr(f,".")=0Andf<>""Then
k=k+1
fn(k)=fn(i)&f&""
EndIf
f=Dir
LoopUntilf=""
i=i+1
Loop
'*******下面是提取各个文件夹的文件***
Forx=1ToUBound(fn)
Iffn(x)=""ThenExitFor
f3=Dir(fn(x)&"*.*")
DoWhilef3<>""
q=q+1
arr1(q,1)=fn(x)&f3
f3=Dir
Loop
Nextx
ActiveSheet.UsedRange=""
Range("a1").Resize(q)=arr1
MsgBoxFormat(Timer-t,"0.00000")
EndSub

效果如图：

② 如何将文件夹内多个excel文件的文件名对应批量添加到每个excel的一列

1、首抄先打开保存有EXCEL文件的袭文件夹——接着在地址栏那里选择文件夹路径并右击选择复制。

③ 如何利用Excel提取文件夹里所有文件名称

1、鼠标点击左上角的OFFICE图标——打开，找到你要提取文件名称的文件夹，轻轻点一下其中的一个文件，然后按CTRL+A，此时，该文件夹里的所有文件被选中了。
2、紧接着用鼠标点一下下面“文件名”栏目，按CTRL+A，再按CTRL+C
3、打开记事本，按CTRL+V，即可粘贴完成你提取的所有文件名称，只是每个文件名称都有双引号，并都用空格分隔开的。提取已经完成。
4、提取的文件名你可以用复制粘贴或者导入的方式，在EXCEL进行分列、替换等处理，达到符合自己要求的文件名格式为止。

④ 用EXCEL VBA获取指定目录下的文件名(包括文件夹名)

1、首先利用快捷键“Windows键+R”打开“运行”窗口