Eu sei que já vi referências a esse problema antes, mas tentei várias das sugestões e ainda estou recebendo o erro. Eu tenho uma pasta de trabalho que reúne dados de outro livro e gera um relatório. Em seguida, quero criar uma nova pasta de trabalho, copiar as informações do relatório para o novo livro, salvar o novo livro e fechá-lo e depois passar para o próximo relatório. Deve fazer isso cerca de 10 vezes. Na parte do meu código em que estou copiando e colando as folhas, estou recebendo um erro

Erro-2147417848 Erro de automação O objeto invocado foi desconectado de seus clientes

Verifiquei outras postagens sobre esse erro e tentei as soluções sugeridas sem nenhum resultado. O interessante é que às vezes ele passa por 5 ciclos de código antes de quebrar, às vezes apenas 2. A única consistência é que ele sempre quebra no mesmo lugar

fromBook.Sheets ("Report"). Copiar Antes: = newBook.Sheets ("Sheet1")

Eu tenho a opção Explicit no topo do módulo, e eu verifiquei se não há nenhum globals dentro do sub que ele está invadindo. Dito isso, é inteiramente possível que eu tenha negligenciado alguma coisa. Eu também coloquei um "temporizador" em um ponto para ter certeza de que as folhas do excel não estavam andando umas sobre as outras.

Eu realmente poderia usar a ajuda!

Aqui está o código do meu 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