當前位置:編程學習大全網 - 編程軟體 - 如何使用Excel管理文件

如何使用Excel管理文件

可以將文件名導入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

  • 上一篇:道家所說的“道”的內涵是什麽?
  • 下一篇:電腦專業分為哪些板塊?
  • copyright 2024編程學習大全網