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」打開「運行」窗口