国产一区二区精品-国产一区二区精品久-国产一区二区精品久久-国产一区二区精品久久91-免费毛片播放-免费毛片基地

千鋒教育-做有情懷、有良心、有品質(zhì)的職業(yè)教育機構(gòu)

手機站
千鋒教育

千鋒學習站 | 隨時隨地免費學

千鋒教育

掃一掃進入千鋒手機站

領取全套視頻
千鋒教育

關注千鋒學習站小程序
隨時隨地免費學習課程

當前位置:首頁  >  技術干貨  > VBA遍歷文件夾中的所有文件

VBA遍歷文件夾中的所有文件

來源:千鋒教育
發(fā)布人:xqq
時間: 2023-11-23 14:20:03 1700720403

一、建立工程

首先,我們需要建立一個新的VBA項目,打開Visual Basic Editor,按下ALT+F11,在彈出的窗口中選擇“插入”-“模塊”,即可新建一個空的模塊。

Sub TraverseFolders()
End Sub

二、定義變量

在Sub過程中,我們可以定義多個變量,變量名可以自由命名,但類型需要定義為“String”或“Variant”,這里定義了一個主文件夾路徑MainFolder,以及ListObject對象tbl用于存儲所有文件路徑。

Sub TraverseFolders()
    Dim MainFolder As String
    Dim tbl As ListObject
End Sub

三、定義ListObject表格

ListObject表格是一種強大的表格功能,擁有各種排序、篩選、格式控制功能等等。這里我們定義一個新的表格,命名為“FileList”,將表頭設置為“File Name”和“Path”,并將其填充至工作表的A1單元格。

Sub TraverseFolders()
    Dim MainFolder As String
    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
    tbl.Name = "FileList"
    tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
    tbl.HeaderRowRange.Cells(1, 2).Value = "Path"
End Sub

四、定義遞歸過程

遞歸是一種經(jīng)典的程序設計思路,用于處理一些可分解為多個子問題的問題,比如樹形數(shù)據(jù)結(jié)構(gòu)、文件夾中的文件等等。這里我們定義一個子過程TraverseSubfolders,它接受兩個參數(shù),FolderPath表示當前文件夾路徑,tbl表示傳入的ListObject表格。

Sub TraverseFolders()
    Dim MainFolder As String
    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
    tbl.Name = "FileList"
    tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
    tbl.HeaderRowRange.Cells(1, 2).Value = "Path"

    TraverseSubfolders MainFolder, tbl
End Sub

Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)

End Sub

五、遍歷文件夾并加載子文件夾

TraverseSubfolders過程中,我們需要使用VBA內(nèi)置函數(shù)FileSystemObject(FSO)來處理文件夾和文件。首先,我們需要在過程開始時判斷指定路徑是否為文件夾,如果是,則遍歷文件夾內(nèi)所有文件并添加到ListObject表格中,否則遞歸處理子文件夾。注意,在遞歸過程中需要先處理所有的子文件夾才能處理當前文件夾。

Sub TraverseFolders()
    Dim MainFolder As String
    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
    tbl.Name = "FileList"
    tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
    tbl.HeaderRowRange.Cells(1, 2).Value = "Path"

    TraverseSubfolders MainFolder, tbl
End Sub

Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject

    Dim folder As Folder
    Set folder = fso.GetFolder(FolderPath)

    Dim file As File
    For Each file In folder.Files
        Dim newRow As ListRow
        Set newRow = tbl.ListRows.Add
        newRow.Range.Cells(1, 1).Value = file.Name
        newRow.Range.Cells(1, 2).Value = file.Path
    Next

    Dim subFolder As Folder
    For Each subFolder In folder.SubFolders
        TraverseSubfolders subFolder.Path, tbl
    Next
End Sub

六、完整代碼

Sub TraverseFolders()
    Dim MainFolder As String
    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B1"), , xlYes)
    tbl.Name = "FileList"
    tbl.HeaderRowRange.Cells(1, 1).Value = "File Name"
    tbl.HeaderRowRange.Cells(1, 2).Value = "Path"

    TraverseSubfolders MainFolder, tbl
End Sub

Sub TraverseSubfolders(FolderPath As String, tbl As ListObject)
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject

    Dim folder As Folder
    Set folder = fso.GetFolder(FolderPath)

    Dim file As File
    For Each file In folder.Files
        Dim newRow As ListRow
        Set newRow = tbl.ListRows.Add
        newRow.Range.Cells(1, 1).Value = file.Name
        newRow.Range.Cells(1, 2).Value = file.Path
    Next

    Dim subFolder As Folder
    For Each subFolder In folder.SubFolders
        TraverseSubfolders subFolder.Path, tbl
    Next
End Sub

七、總結(jié)

我們通過使用VBA內(nèi)置的FileSystemObject對象,在遍歷文件夾中的所有文件時實現(xiàn)了遞歸遍歷所有子文件夾的功能,將所有文件名和路徑存儲在ListObject表格中。在實際應用中,我們可以進一步擴展這個功能,比如篩選指定類型的文件、添加文件屬性和標簽、自動處理重復文件等等。

聲明:本站稿件版權(quán)均屬千鋒教育所有,未經(jīng)許可不得擅自轉(zhuǎn)載。
10年以上業(yè)內(nèi)強師集結(jié),手把手帶你蛻變精英
請您保持通訊暢通,專屬學習老師24小時內(nèi)將與您1V1溝通
免費領取
今日已有369人領取成功
劉同學 138****2860 剛剛成功領取
王同學 131****2015 剛剛成功領取
張同學 133****4652 剛剛成功領取
李同學 135****8607 剛剛成功領取
楊同學 132****5667 剛剛成功領取
岳同學 134****6652 剛剛成功領取
梁同學 157****2950 剛剛成功領取
劉同學 189****1015 剛剛成功領取
張同學 155****4678 剛剛成功領取
鄒同學 139****2907 剛剛成功領取
董同學 138****2867 剛剛成功領取
周同學 136****3602 剛剛成功領取
相關推薦HOT