可以將文件名導入excel方便查詢文件,從而做到管理文件。
將文件名導入EXCEL,需要使用到VBA,
以下作了壹個範例,希望對您有幫助。使用方法:
1、在B1單元格輸入妳需要導入文件名稱的文件夾路徑,如下圖的方式:
2、點擊“導入文件名”的按鈕,則可完成。
具體代碼如下:
Sub?導入文件名()Range("A2:X10000")?=?""
If?Range("B1")?=?""?Then
MsgBox?"請在B1單元格輸入需導入文件的文件夾路徑,謝謝!"
Exit?Sub
End?If
Dim?fso,?luj,?wjs,?wj,?mz,?wb
Dim?n?As?Integer
Set?fso?=?CreateObject("scripting.filesystemobject")
Set?luj?=?fso.getfolder(Cells(1,?2).Text)
Set?wjs?=?luj.Files
n?=?0
For?Each?wj?In?wjs
n?=?n?+?1
mz?=?wj.Name
Cells(n?+?1,?1)?=?n
Cells(n?+?1,?2)?=?Cells(1,?2).Text?&?"\"?&?mz
Cells(n?+?1,?3)?=?mz
Next?wj
If?n?<?2?Then
MsgBox?"該路徑下,未找到文件,請查看文件路徑設置是否正確,謝謝!"
Exit?Sub
End?If
End?Sub