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

复制代码

xl123456789

大佬啊学习

goots

感谢分享！随便知道了 InStrRev 这个好用的函数