Sé que he visto referencias a este problema anteriormente, pero he intentado varias de las sugerencias y todavía estoy recibiendo el error. Tengo un libro de trabajo que reúne datos de otro libro y genera un informe. Luego quiero hacer un nuevo libro de trabajo, copiar la información del informe en el nuevo libro, guardar el libro nuevo y cerrarlo, y luego pasar al siguiente informe. Debe hacer esto alrededor de 10 veces. En la parte de mi código donde estoy copiando y pegando las hojas, recibo un error.

Error -2147417848 Error de automatización El objeto invocado se ha desconectado de sus clientes

He comprobado otras publicaciones sobre este error y probé las soluciones sugeridas sin ningún resultado. Lo interesante es que a veces lo hará a través de 5 ciclos de código antes de romperse, a veces solo 2. La única consistencia es que siempre se rompe en el mismo lugar

fromBook.Sheets ("Informe"). Copiar antes: = newBook.Sheets ("Sheet1")

Tengo la opción Explicit en la parte superior del módulo, y me he asegurado de que no haya ningún globo dentro del submarino en el que se está introduciendo. Dicho esto, es muy posible que haya pasado por alto algo. También puse un "temporizador" en un punto para asegurarme de que las hojas de Excel no estuvieran una sobre la otra.

¡Realmente podría usar la ayuda!

Aquí está el código de mi sub:

Sub CreateAndSave(ByRef Reg As Integer, ByVal j As Integer)

        Dim fromBook As Workbook
        Dim fromSheet As Worksheet
        Dim newBook As Workbook
        Dim fileExists As Boolean
        Dim i As Integer
        Dim Holder As Integer


        Application.ScreenUpdating = False
        Application.DisplayAlerts = False

            Set fromBook = Application.Workbooks("Region_Audit_Report")
            Set newBook = Workbooks.Add

           With newBook
            .SaveAs Filename:="G:\DataTeam\ExcelDev\Audit Report\Region Workbooks\Region" & Reg & " " & Month(Date) & "-" & Day(Date) & "-" & Year(Date) & ".xlsx" _
            , FileFormat:=xlOpenXMLWorkbook
           End With

        Set newBook = Application.Workbooks("Region" & Reg & " " & Month(Date) & "-" & Day(Date) & "-" & Year(Date) & ".xlsx")

        fromBook.Sheets("Report").Copy Before:=newBook.Sheets("Sheet1")
        fromBook.Sheets("MonthData").Copy After:=newBook.Sheets("Report")

        newBook.Sheets("MonthData").Range("A1") = "Month"
        newBook.Sheets("MonthData").Range("B1") = "Store#"
        newBook.Sheets("MonthData").Range("C1") = "District"
        newBook.Sheets("MonthData").Range("D1") = "Region"
        newBook.Sheets("MonthData").Range("E1") = "Due Date"
        newBook.Sheets("MonthData").Range("F1") = "Comp Date"
        newBook.Sheets("MonthData").Range("G1") = "# of Errors"
        newBook.Sheets("MonthData").Range("H1") = "Late?"
        newBook.Sheets("MonthData").Range("I1") = "Complete?"

        newBook.Sheets("MonthData").Range("A1:I1").Interior.ColorIndex = 43


            newBook.Save

            newBook.Close


            Application.DisplayAlerts = True

    End Sub