robertonl,
Boa Noite!
Com uma pequena alteração (conforme código abaixo) você pode abrir o arquivo, fazer a cópia dos dados que você quer, salvar o arquivo que receber os dados e fechar novamente. Isso tudo o código faz de forma automática e totalmente transparente para o usuário final. Ou seja, nem é percebido que o arquivo foi aberto, copiado, salvo e fechado.
Note que o caminho que coloquei para abrir o arquivo foi o ActiveWorkbook.Path. Isso significa que os dois arquivos devem está na mesma pasta. Todavia, isso não é um problema. Se o arquivo que vai receber os dados não puder ficar na mesma pasta que o arquivo .xlsm, altere o caminho no código de maneira a refletir o caminho completo aonde o mesmo se encontra.
Use esse código (seu próprio código com pequenas alterações):
Sub Exportar_Dados()
'
' Exportar_Dados Macro
'
Application.ScreenUpdating = False
Workbooks.Open (ActiveWorkbook.Path & "Relatorio Recebimento.xlsx")
Windows("Relatorio Recebimento.xlsx").Activate
ActiveSheet.Unprotect
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Windows("Relatorio_Recebe.xlsm").Activate
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("Relatorio Recebimento.xlsx").Activate
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Workbooks("Relatorio Recebimento.xlsx").Save
Workbooks("Relatorio Recebimento.xlsx").Close
Application.ScreenUpdating = True
Windows("Relatorio_Recebe.xlsm").Activate
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 04/11/2017 7:01 pm