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

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

手機(jī)站
千鋒教育

千鋒學(xué)習(xí)站 | 隨時(shí)隨地免費(fèi)學(xué)

千鋒教育

掃一掃進(jìn)入千鋒手機(jī)站

領(lǐng)取全套視頻
千鋒教育

關(guān)注千鋒學(xué)習(xí)站小程序
隨時(shí)隨地免費(fèi)學(xué)習(xí)課程

當(dāng)前位置:首頁(yè)  >  技術(shù)干貨  > VBA遍歷文件夾中的所有文件

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

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

一、建立工程

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

Sub TraverseFolders()
End Sub

二、定義變量

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

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

三、定義ListObject表格

ListObject表格是一種強(qiáng)大的表格功能,擁有各種排序、篩選、格式控制功能等等。這里我們定義一個(gè)新的表格,命名為“FileList”,將表頭設(shè)置為“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

四、定義遞歸過(guò)程

遞歸是一種經(jīng)典的程序設(shè)計(jì)思路,用于處理一些可分解為多個(gè)子問(wèn)題的問(wèn)題,比如樹(shù)形數(shù)據(jù)結(jié)構(gòu)、文件夾中的文件等等。這里我們定義一個(gè)子過(guò)程TraverseSubfolders,它接受兩個(gè)參數(shù),FolderPath表示當(dāng)前文件夾路徑,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過(guò)程中,我們需要使用VBA內(nèi)置函數(shù)FileSystemObject(FSO)來(lái)處理文件夾和文件。首先,我們需要在過(guò)程開(kāi)始時(shí)判斷指定路徑是否為文件夾,如果是,則遍歷文件夾內(nèi)所有文件并添加到ListObject表格中,否則遞歸處理子文件夾。注意,在遞歸過(guò)程中需要先處理所有的子文件夾才能處理當(dāng)前文件夾。

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é)

我們通過(guò)使用VBA內(nèi)置的FileSystemObject對(duì)象,在遍歷文件夾中的所有文件時(shí)實(shí)現(xiàn)了遞歸遍歷所有子文件夾的功能,將所有文件名和路徑存儲(chǔ)在ListObject表格中。在實(shí)際應(yīng)用中,我們可以進(jìn)一步擴(kuò)展這個(gè)功能,比如篩選指定類(lèi)型的文件、添加文件屬性和標(biāo)簽、自動(dòng)處理重復(fù)文件等等。

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