pvitor,

Você já comentou sobre esse mesmo problema em um outro tópico que abriu aqui no fórum. Lembro-me que solicitei que você salvasse um pequeno exemplo do seu arquivo original e anexasse o mesmo aqui no fórum, compactado com .ZIP. Somente assim é que poderemos testar o que está acontecendo com seu código.

Boa tarde Wagner!

É verdade, fiz outro tópico... então, o arquivo depende do SAP pra rodar tudo... não sei se ajudaria, posso colocar o código aqui, mas não irão conseguir rodar...

Fiz em uma planilha separada somente o código de transferência entre as bases, porém nesse tenho que abrir a planilha salva pelo SAP, e não apresentou a mensagem de erro.

O problema acredito que acontece devido ao SAP salvar a planilha e abri-la na sequencia automaticamente.... mas a execução do código é mto rápida e o excel deve entrar em colapso, mesmo fazendo tudo direitinho..

Consigo colar o código.... mas a planilha não sei se ajudaria.

Por isso perguntei sobre uma estrutura pra checar se o arquivo está aberto e aí sim dar continuidade ao código.. assim acredito que o erro não aconteça mais.

Entendo...

Bom, o arquivo que você está querendo ver se ainda está aberto é um arquivo Excel? É um arquivo .xlsx?

Vou fazer alguma suposições e lhe passar um código que pode fazer essa verificação. Supondo que é um arquivo Excel do tipo .xlsx cujo nome seja Arquivo a ser fechado.xlsx. Você poderia usar o seguinte código para fechá-lo:

Sub FecharArquivo()
    Dim Wkb As Workbook
    
    For Each Wkb In Application.Workbooks
        If Wkb.Name = "Arquivo a ser fechado.xlsx" Then
            Wkb.Save
            Wkb.Close
        End If
    Next
End Sub 

PVitor,

Caso não seja um arquivo Excel (se for também serve) tente a função IsFileOpen desse antigo artigo do suporte da Microsoft: Macro code to check whether a file is already open.

Isso já foi tratado recentemente aqui no Planilhando no tópico Verificar se arquivo está em aberto [Resolvido].