遍历文件出现隐藏文件

qinhanglove

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
   
5.     ActiveSheet.UsedRange.ClearContents
   
6.     Dim brr(1 To 1, 1 To 100) As Variant
   
7.     n = 1
   
8.     a = 0
   
9.     For Each f In ff.Files
   
10.         If f.Name <> ThisWorkbook.Name Then
    
11.         Rem 如果值需要提取某类文件，需要对f.name的扩展名进行判断
    
12.         Rem 个人感觉split取 扩展名：split（f.name,".")(ubound（split（f.name,".")）)，然后再判断，避免文件名还有其他“.”
    
13.         brr(1, n) = f.Name '相对路径名
    
14.          a = a + 1
    
15.          n = n + 1
    
16.               
    
17.         End If”

复制代码

要求不统计隐藏文件，只统计EXCEL文件