[發問] 多層資料夾尋找檔案的問題

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-3-8 20:02 | 顯示全部帖子

看到一個標題是這樣的:
"Excel VBA to list files in folder and subfolder with path to .txt file"
如下網址:
http://stackoverflow.com/questions/20219362/excel-vba-to-list-files-in-folder-and-subfolder-with-path-to-txt-file

我試過他會列出所有資料夾的名稱，但有個小小疑問，要怎麼利用dir去尋找這清單然後打開要的檔案?有大大可以教我一下嗎? 由衷感謝^^

Sub go()
      ShowFolderList ("C:\temp")
End Sub

Sub ShowFolderList(folderspec)
      Dim fs, f, f1, fc, s, sFldr
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set f = fs.GetFolder(folderspec)
      Set fc = f.SubFolders
      For Each f1 In fc
         ShowFolderList f1
      Next
      Set fc = f.Files
      For Each f1 In fc
         Debug.Print folderspec & f1.Name
      Next
End Sub

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-3-9 09:50 | 顯示全部帖子

回復 3# Hsieh

親愛的版主您好~
我有連進去囉->Excel程式區 1877.0 html 是什麼? 不懂，感恩^^

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2014-3-9 19:28 | 顯示全部帖子

回復 5# Hsieh

版大我有看完你PO的文，Sub list_and_link1 可以列出所有檔案名
----------------------------------------------------------------------------------------------------------
另外也找了一種方法，它可以幫我找出所有檔案名稱，但有個小小問題，
如果Sheet1的Range("A1") 是搜尋的檔名，例如:file(如主題中的附件)，如何在搜尋到後打開他???感謝您^^

Public Sub TestListDir()
Worksheets(1).Cells(2, 1).Activate
Call listDir("C:\Users\ui\Desktop\New folder\", 1)
End Sub

Public Sub listDir(strPath As String, lngSheet As Long)
Dim strFn As String
Dim strDirList() As String
Dim lngArrayMax, x As Long
lngArrayMax = 0
strFn = Dir(strPath & "*.*", 23)
While strFn <> ""
If strFn <> "." And strFn <> ".." Then
      If (GetAttr(strPath & strFn) And vbDirectory) = vbDirectory Then
         lngArrayMax = lngArrayMax + 1
         ReDim Preserve strDirList(lngArrayMax)
         strDirList(lngArrayMax) = strPath & strFn & "\"
      Else
         ActiveCell.Value = strPath & strFn
         Worksheets(lngSheet).Cells(ActiveCell.Row + 1, 1).Activate
      End If
End If
strFn = Dir()
Wend
If lngArrayMax <> 0 Then
For x = 1 To lngArrayMax
      Call listDir(strDirList(x), lngSheet)
Next
End If
End Sub

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2014-3-12 22:24 | 顯示全部帖子

各位大大，給您們回報目前狀況

暫時方案:
目前無法解決"Dir在各subfolder找到檔案就開起來(檔案只存在一個資料夾)"
所以現在暫時應應措施為: 先列出所有的檔案名，然後搜出要的檔案名+完整位置，然後打開它~
---------------------------------------------------------------------------------------------
永久對策:
如有人會"Dir各subfolder"然後打開找到的檔案的話，請不令指教，感謝~^^
PS:要找的檔案名會放在A1儲存格