'因为自己昨天想不通，在路上想了一会儿，今天过来一会儿就想明白了，看来做事还是讲效率比较好，磨时间没意义

Sub dakaiguanbi() '这个代码就是进行二次后处理并生成建立新的excel  Dim str As String  '这个vba代码是后处理的代码,加载阶段未接触上进行修正   Dim wb As Workbook   str = Dir("C:\Users\DELL\Desktop\保存\*.*")   

 ' ActiveWindow.WindowState = xlNormal      Dim xunhuan As Integer

   For xunhuan = 1 To 3         Workbooks.Open Filename:= _         "C:\Users\DELL\Desktop\保存\" & str   Windows("" & str & "").Activate   '新建或者打开二次后处理文件   Application.DisplayAlerts = False               If IsFileExists("C:\Users\DELL\Desktop\二次后处理\" & str & "二次后处理" & ".xlsx") = False Then '避免重复生成             Workbooks.Add                   ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\二次后处理\" & str & "二次后处理" & ".xlsx", FileFormat:= _                       xlOpenXMLWorkbook, CreateBackup:=False             Else                  Workbooks.Open ("C:\Users\DELL\Desktop\二次后处理\" & str & "二次后处理" & ".xlsx")                  Application.WindowState = xlMaximized             '    Set wbs = Workbooks.Open("C:\Users\周伟\Desktop\" & weiya & "kpa-" & zhoubian & "%" & date1 & ".xlsx")             End If     Application.DisplayAlerts = True                Application.DisplayAlerts = False     ActiveWorkbook.Save     ActiveWindow.Close     'Workbooks(name1).Close          Windows("" & str & "").Close     Application.DisplayAlerts = True

    str = Dir  If str = "" Then    Exit For    End If    Next     

End Sub ‘20201127-9：45