Boa tarde jhenrique,

Como você não colocou a planilha, só posso especular.

Para que não apareça mensagens use o seguinte comando:

'Desabilita as mensagens 
Application.DisplayAlerts = False

'---- Seu código ----'

'Habilita de novo
Application.DisplayAlerts = True

Você pode tentar usar os comandos de erros do VBA (On Error Goto X ou On Error Resume Next) para o código continuar ou pular para outra linha caso acontece um erro. Mas para esse comandos ficarem bons você tem que saber que tipos de erros podem acontecer.

Por último, tente descobrir porque esses arquivos que você está abrindo estão corrompidos.

att,

Eu já estou usando o código "Application.DisplayAlerts = False" no início da minha macro, mas ela não funcionou pra resolver esse problema.

Veja,

Sub Renomear()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim i As Integer
Dim j As Integer

Dim X As String
Dim Y As Integer
Dim Z As String

Dim Path_Old As String
Dim Path_New As String
Dim File_Old As String
Dim File_New As String
Dim Full_Old As String
Dim Full_New As String

' Alterar aqui!!!
Path_Old = "C:UsersJHenryDesktopLinksFinancials (Gross)Balance_Q"
Path_New = "C:UsersJHenryDesktopLinksFinancials (Net)Balance_Q"

' Alterar aqui!!!
X = "B"

' Alterar aqui!!!
j = 8457

For i = 5 To j

Y = i
Z = X & Y

File_Old = Workbooks("List of all files.xlsm").Worksheets("Lists").Range(Z).Value
Full_Old = Path_Old & File_Old

Workbooks.Open (Full_Old)

File_New = "#" & Workbooks(File_Old).Sheets(1).Name & "@" & ".xlsx"
Full_New = Path_New & File_New

ActiveWorkbook.SaveAs (Full_New)

ActiveWorkbook.Close

Next

End Sub

Onde eu devo inserir, exatamente, "On Error Goto X" ou o "On Error Resume Next"??

Boa noite JHenrique,

Olhando o seu código suponho que o erro ocorra no ponto que tem: Workbooks.Open (Full_Old)

Não consegui entender o objetivo do seu código, você pode comentar ele?

att,

Bom dia, JHenrique.

Vc já tentou, no método Open, alterar a propriedade CorrupLoad para xlRepairFile ou para xlExtractData?

Como vc não anexou arquivos estou na mesma situação do Bruno, só especulando mesmo. Inclusive não tenho nenhum corrupto aqui prá testar (e estou muito longe de Brasília também, )

Boa noite JHenrique,

Olhando o seu código suponho que o erro ocorra no ponto que tem: Workbooks.Open (Full_Old)

Não consegui entender o objetivo do seu código, você pode comentar ele?

Exatamente, ele ocorre no comando "Workbooks.Open (Full_Old)".

O objetivo é abrir mais de 5000 planilhas que estão dentro duma pasta com o nome sheet1.xlsx, sheet2.xlsx, sheet3.xlsx, etc, etc... e salvá-la numa outra pasta com o nove da aba dentro da planilha (nome_correto.xlsx).

Quando eu tento abrir algumas destas planilhas, ocorre um bug e o laço é pausado até eu resolver o bug manualmente. EU quero que a minha macro ignore o bug e continue a trabalhar passando por cima da planilha bugada.

Bom dia, JHenrique.

Vc já tentou, no método Open, alterar a propriedade CorrupLoad para xlRepairFile ou para xlExtractData?

Como vc não anexou arquivos estou na mesma situação do Bruno, só especulando mesmo. Inclusive não tenho nenhum corrupto aqui prá testar (e estou muito longe de Brasília também, )

HUmmm,

"CorrupLoad para xlRepairFile ou para xlExtractData"

Como uso esses comandos???

Pode me dar um exemplo?

Um simples

On error resume next

no inicio do codigo nao resolve

Coloque depois da declaração das variaveis