EXCELvba 封装函数之取得文件夹下(包括子文件夹)所有PDF文件的清单

bluesky_0

我把取得文件夹下(包括子文件夹)所有PDF文件的清单,封装为一个自定义函数;
好用

1. Public Function ListFiles(ByVal folderPath As String, ByRef counter As Integer)
   
2. '子函数-取得文件夹下的PDF文件名,包括子文件夹,不带限制范围
   
3.     Dim FS As Object
   
4.     Set FS = CreateObject("Scripting.FileSystemObject")
   
5.     Dim folder As Object
   
6.     Set folder = FS.GetFolder(folderPath)
   
7.     Dim file As Object
   
8. 
   
9. '    Dim ws As Worksheet
   
10.     Dim rng As Range
    
11.     Dim arr() As Variant
    
12.     Dim i As Integer
    
13.     Dim lastRow As Long
    
14.     Dim result As String ' 假设result的类型为String
    
15. '    Set ws = Sheet3 ' 修改为你的工作表名
    
16.         For Each file In folder.Files '
    
17.                         ' 在这里执行相等的操作, '把取得数据的落到当前工作表上
    
18.                                 hzm = IIf(InStrRev(file.Name, ".") <> 0, Mid(file.Name, InStrRev(file.Name, ".") + 1, Len(file.Name)), "")
    
19.                     If UCase(hzm) = "PDF" Then ' 过滤是PDF的
    
20.                                 ActiveSheet.Cells(counter, 1) = counter - 1
    
21.                                 ActiveSheet.Cells(counter, 2) = file.Name
    
22.                                 ActiveSheet.Cells(counter, 2).Hyperlinks.Add Anchor:=ActiveSheet.Cells(counter, 2), Address:=file.path
    
23.                                 ActiveSheet.Cells(counter, 3) = folder '文件夹
    
24.                                 counter = counter + 1
    
25.                     End If
    
26.         Next file
    
27.     Dim subFolder As Object
    
28.     For Each subFolder In folder.SubFolders
    
29.         ListFiles subFolder.path, counter
    
30.     Next subFolder
    
31. End Function

复制代码