彰化一整天的論壇

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

取得資料夾內所有檔案名稱

[複製鏈接]
發表於 2016-8-14 00:02:38 | 顯示全部樓層 |閱讀模式
本帖最後由 discuz 於 2016-8-14 00:04 編輯
  1. Private Sub CommandButton1_Click()
  2.     Dim P As String
  3.     P = ThisWorkbook.Path '指定資料夾路徑
  4.     ActiveSheet.UsedRange.Offset(1).Clear
  5.     Get_Picture P
  6. End Sub
  7. Private Sub Get_Picture(ByVal P As String)
  8.     Dim Fs, C As Variant
  9.     Set Fs = CreateObject("Scripting.FileSystemObject").GETFolder(P)
  10.     With ActiveSheet
  11.     For Each C In Fs.Files
  12.         If C Like "*.xls" Then '指定副檔名
  13.             .Cells(Application.CountA(.[C:C]) + 1, "C") = C.Name
  14.         End If
  15.      Next
  16.     End With
  17.         For Each C In Fs.SubFolders
  18.             On Error Resume Next
  19.             Get_Picture C
  20.         Next
  21. End Sub
複製代碼
PS:用此方法可以解決用dir若有日文或是UTF8檔案名稱就會變成?問號

資料來源: http://forum.twbts.com/viewthread.php?tid=426&extra=&page=1
回復

使用道具 舉報

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

本版積分規則

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

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

GMT+8, 2019-10-21 05:14 , Processed in 0.124247 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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