Copiar dados de outra pasta de trabalho/aplicativo aberta

Boa Noite!

Preciso das linhas de código VBA para copiar dados de uma pasta de trabalho do excel 2003 (xls) para uma do excel 2010 (onde está a programação)

As postagens que encontrei abrem ou fecham pastas de trabalho e não é meu caso.

Preciso apenas copiar de uma pasta de trabalho aberta do excel 2003 para uma pasta de trabalho aberta do excel 2010.

Do sistema que usamos, consigo extrair um relatório excel (xls, 2003) então ao invés de copiar e colar várias linhas e colunas, quero fazer isto por VBA associando a um botão.

Fiz o upload de um exemplo aqui https://www.sendspace.com/file/56l1s3

Podia ser assim

DE Pasta1.xls / Plan1 colunas A até H
PARA Pasta1.xlsx / Plan1 / Célula A1

Abraço!

Bom dia!!

No trampo eu não tenho permissão de baixar seu anexo, só em casa.

Na sua postagem você não mencionou se o arquivo Origem está fechado, então eu vou deduzir que ambos arquivos estejam abertos.

Código:

Sub AleVBA_968()
    With Workbooks("Pasta1.xls") 'Nome do arquivo de Origem
    'Nome da guia de Origem        'Nome do Arquivo de destino  Nome da guia Destino
        .Worksheets("Plan1").Copy Before:=Workbooks("Pasta1.xlsm").Worksheets("Plan1")
    End With
End Sub

Caso queira copiar especificamente as colunas A:H, tente..

Código:

Sub AleVBA_968V()
    With Workbooks("Pasta1.xls").Worksheets("Plan1").Range("A:H")
        Workbooks("Pasta1.xlsm").Worksheets("Plan1").Cells(1).Resize(.Rows.Count, .Columns.Count) = .Value
    End With
End Sub

Att

Bom Dia Alexandre!

Desculpe a demora no retorno, estou de férias...

Não consegui fazer funcionar o código...
Na primeira linha já retorna erro em tempo de execução "9". Subscrito fora do intervalo.

Utilizei o segundo código que me disponibilizou.
Abri o excel 2013, abri o editor VBA, inseri um módulo e colei o código.
Então abri o excel 2003 e na linha 1, colunas A:H escrevi os números de 1 a 8

Pode me ajudar?
Obrigado!
Att

Bom dia!!

Façamos assim, poste sua dúvida em:
http://gurudoexcel.com/forum/categoria/vba-e-macros/
Após fazer seu cadastro.

Obs: Lá poderá postar seu arquivo modelo (no serviço eu não consigo acessar sites de hospedagem)

Att

Feito. Duvida postada no link http://gurudoexcel.com/forum/t/copiar-dados-de-outra-pasta-de-trabalhoaplicativo-aberta/

Obrigado pela atenção.
Att
Marcelo S

Boa tarde!!

Já foi respondido favor verificar!!

Att