E-mail automaticamente x RefreshALL.

Question

Boa dia!

Tenho uma planilha que envia e-mail's automaticamente, para uma lista de destinatários, atraves de uma macro, conforme abaixo.

Só que há uma mesnagem de erro apos a instrução "ActiveWorkbook.RefreshAll", dizendo que "Esta ação cancelará um comando 'Atualizar Dados' pendente. Continuar?" .

Alguem teria uma solução para este caso?

Abraços

Anderson

Sub Envia_Email()

    Dim Data

    Dim MyTitulo

    Dim Arquivo

    Dim Email

    Dim Titulo

    Dim C

    For Each C In Worksheets("Resumo").Range("b9:b200").Cells

        If C.Value <> "" Then

            Arquivo = C.Value

            Data = Worksheets("resumo").Range("b6").Value

            Titulo = C.Offset(rowOffset:=0, columnOffset:=3)

            MyTitulo = Titulo & Data

            Email = C.Offset(rowOffset:=0, columnOffset:=2)

            Workbooks.Open Filename:=Arquivo

            ActiveWorkbook.RefreshAll

            ActiveWorkbook.Save

            ActiveWorkbook.SendMail Recipients:=Email, Subject:=MyTitulo

            ActiveWorkbook.Close

        End If

    Next C

End Sub

Answer 1

Bom dia!

Eu tenho links externos.

Mas agora esta funcionado, fiz a seguinte alteração:

Troquei a instrução "RefreshAll" por "QueryTable.Refresh", "PivotTable.RefreshTable" e "PivotCache.RefreshTable".

Segue abaixo o código refeito.

Obrigado,

Anderson

Sub Envia_Email()

    Application.ScreenUpdating = False

    Dim Data, MyTitulo, Diretorio, Nome, Arquivo, Email, Titulo, C

    For Each C In Worksheets("Resumo").Range("b9:b200").Cells

        If C.Value <> "" Then

            Diretorio = C.Value

            Nome = C.Offset(rowOffset:=0, columnOffset:=1)

            Arquivo = Diretorio & Nome

            Data = Worksheets("resumo").Range("b6").Value

            Titulo = C.Offset(rowOffset:=0, columnOffset:=4)

            MyTitulo = Titulo & Data

            Email = C.Offset(rowOffset:=0, columnOffset:=3)

            Workbooks.Open Filename:=Arquivo

            For Each Worksheet In ActiveWorkbook.Worksheets

               For Each QueryTable In Worksheet.QueryTables

                         QueryTable.Refresh

               Next QueryTable

            Next Worksheet

            For Each Worksheet In ActiveWorkbook.Worksheets

               For Each PivotTable In Worksheet.PivotTables

                    PivotTable.RefreshTable

               Next PivotTable

            Next Worksheet

            For Each Worksheet In ActiveWorkbook.Worksheets

               For Each PivotCache In ActiveSheet.PivotTables

                    PivotCache.RefreshTable

               Next PivotCache

            Next Worksheet

            Workbooks(Nome).Activate

            ActiveWorkbook.Save

            ActiveWorkbook.SendMail Recipients:=Email, Subject:=MyTitulo

            ActiveWorkbook.Close

        End If

    Next C

    Application.ScreenUpdating = True

End Sub

Answer 2

Retire esta linha. Este comando é para atualização de links externos que não parece ser o seu caso.