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 | 
 

 pegar dados em outro arquivo do excel

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



Mensagens : 1
Data de inscrição : 03/12/2011

MensagemAssunto: pegar dados em outro arquivo do excel   Dom Dez 04, 2011 12:04 am

Boa noite sou novo aqui no fórum e tenho uma dúvida e gostaria do auxílio de vocês.
Todos os dias eu gero um relatório do excel e por exemplo o dia de hj eu substituo (colo)no relatório de ontem, eu gostaria de criar uma macro que pegue os dados em outra planilha e cole na anterior.
Espero ter sido claro.
Desde já agradeç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: pegar dados em outro arquivo do excel   Dom Dez 04, 2011 3:07 am

Boa noite!!

Ha muitas maneiras de faze isso...precisamos de mais detalhes..poste um arquivo modelo...

Veja um exemplo...


Código:
 Sub ImportarDados()
'Copiar dados de um Livro para outro
        Dim wsOrigem As Worksheet
        Dim wsDestino As Worksheet
       
        'Arquivo Destino, abrimos primeiro
        'Ajuste o caminho do mesmo
        Workbooks.Open Filename:="C:\Documents and Settings\oraculo\Meus documentos\Downloads\Master.xls"
       
        'Arquivos e Abas de Origem e Destino
        Set wsOrigem = Workbooks("Dvisão.xls").Worksheets("Plan1")
        Set wsDestino = Workbooks("Master.xls").Worksheets("Plan5")
         
            With wsOrigem
                .Range("B2:B500").Copy Destination:=wsDestino.Range("B2")
                .Range("F2:F500").Copy Destination:=wsDestino.Range("K2")
                .Range("J2:J500").Copy Destination:=wsDestino.Range("T2")
            End With
     
      'Fecha o Arquivo Destino e Salva
        Workbooks("Master.xls").Close SaveChanges:=True
       
        MsgBox "Introdução de Dados Concluída"
    End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
pegar dados em outro arquivo do excel
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Dúvida] Como importar strings de um arquivo .txt
» Como mudar o lado do perfil
» [Resolvido]Abrir um Arquivo do Excel dentro do Access
» Criar arquivo docx e copiar texto de outro arquivo do word para o arquivo criado
» [Resolvido]Importação de dados de um arquivo texto

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: