Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiar dados de outra pasta de trabalho/aplicativo aberta

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
marcelostrehlow



Mensagens : 16
Data de inscrição : 15/05/2012

MensagemAssunto: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qui Jan 22, 2015 3:10 am

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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qui Jan 22, 2015 1:53 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcelostrehlow



Mensagens : 16
Data de inscrição : 15/05/2012

MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qua Jan 28, 2015 3:48 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qua Jan 28, 2015 3:59 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcelostrehlow



Mensagens : 16
Data de inscrição : 15/05/2012

MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qua Jan 28, 2015 10:15 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Qua Jan 28, 2015 10:36 pm

Boa tarde!!

Já foi respondido favor verificar!!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Copiar dados de outra pasta de trabalho/aplicativo aberta   Hoje à(s) 2:50 am

Voltar ao Topo Ir em baixo
 
Copiar dados de outra pasta de trabalho/aplicativo aberta
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» copiar arquivo de uma pasta para outra
» Formulário buscar dados em outra tabela
» Transferindo arquivos para dentro da pasta JAVA
» Pergunta : Como copiar os jogos da Minha Pasta JAVA para o Pc??
» TEM ALGUM APLICATIVO DO S8500 PARA SABER A LOCALIZAÇÃO DE OUTRO CELULAR?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: