彰化一整天的論壇

 找回密碼
 立即註冊
查看: 371|回復: 0

excel 讀取所有目錄檔案名稱

[複製鏈接]
發表於 2016-11-4 11:33:24 | 顯示全部樓層 |閱讀模式
本帖最後由 discuz 於 2016-11-4 11:35 編輯
  1. Dim FileSystem As Object
  2. Dim HostFolder As String

  3. Sub t1()
  4.     HostFolder = "E:\tmh\excel"
  5.    
  6.     Set FileSystem = CreateObject("Scripting.FileSystemObject")
  7.     DoFolder FileSystem.GetFolder(HostFolder)
  8. End Sub


  9. Sub DoFolder(Folder)
  10.     Dim SubFolder
  11.     For Each SubFolder In Folder.SubFolders
  12.         DoFolder SubFolder
  13.     Next
  14.     Dim File
  15.     For Each File In Folder.Files
  16.         ' Operate on each file
  17.         Debug.Print File.Name
  18.     Next
  19. End Sub
複製代碼
參考資料: http://stackoverflow.com/questio ... ubfolders-using-vba
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-12-10 21:58 , Processed in 0.111072 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表