判断文件名中是否包括特定字符进行分类汇总

skywfw

各位老师：

现在有个问题请教，以下代码是对于已经打开的aa这个文件进行分类汇总，但现在有个问题，因为文件名不固定，但固定包含“aa”，不知道以下脚本如何修改，可以实现只要打开文件名包含“aa”的工作簿就可以进行分类汇总。

谢谢！

Sub test()
On Error Resume Next
Dim wk As Object
Set wk = Workbooks("aa.xlsx")
    If Err.Number = 0 Then
    Workbooks("aa.xlsx").Activate
    For k = 1 To Sheets.Count
        Sheets(k).Select
        With Range("A:E")
        .RemoveSubtotal '清除分类汇总
        .Application.DisplayAlerts = False
        .Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5)
            End With
            Dim i As String
            Dim j As String
            i = 1
            j = ActiveSheet.[A65536].End(xlUp).Row
            Range("a" & i & ":E" & j).Borders.LineStyle = xlContinuous
            Next
            MsgBox "分类汇总已完成"
    Else
   MsgBox "请打开“aa”的Execl文件(aa.xlsx)"
End If
End Sub

yaojil

仅供参考！

1. Sub test()
   
2. On Error Resume Next
   
3. Dim wk As Object
   
4. f = Dir(ThisWorkbook.Path & "\*aa*.xls*")
   
5. Do While f <> ""
   
6. If f <> ThisWorkbook.Name Then
   
7.   Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f)
   
8.    With wb
   
9.         For k = 1 To Sheets.Count
   
10.          Sheets(k).Select
    
11.          With Range("A:E")
    
12.           .RemoveSubtotal '清除分类汇总
    
13.           .Application.DisplayAlerts = False
    
14.           .Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5)
    
15.          End With
    
16.          Dim i As String
    
17.          Dim j As String
    
18.          i = 1
    
19.          j = ActiveSheet.[A65536].End(xlUp).Row
    
20.          Range("a" & i & ":E" & j).Borders.LineStyle = xlContinuous
    
21.        Next
    
22.   End With
    
23. End If
    
24. f = Dir
    
25. Loop
    
26. End Sub

复制代码

skywfw

yaojil 发表于 2018-6-8 19:48
仅供参考！

老师，你好。我试用了一下有个问题，就是程序会对同一个工作簿重复执行多次分类汇总。是否循环结束的时候没有跳出？