Ir ao conteúdo
  • Cadastre-se
Palestrin

Visual Basic Copiar e colar dados de várias planilhas

Recommended Posts

Eu tenho um planilha, que está no arquivo Geral.xls. Esse arquivo Geral.xls, tem uma planilha chamada plan1, que vai receber dados de várias outras planilhas de arquivos diferentes

( jose.xls,  arnaldo.xls, etc...).

Eu precisaria de um código que fizesse a cópia desses dados para a planilha plan1 dentro do arquivo geral.xls.

Alguém teria alguma ideia de código?

Estou usando o código abaixo:

Sub Importar()

  Dim wkbOrigem As Excel.Workbook
  Dim wksOrigem As Excel.Worksheet
  Dim wkbDest As Excel.Workbook
  Dim wksDest As Excel.Worksheet
  Dim lngLast As Long
  
  'Abre pastas de trabalho e planilhas.
  'Altere os caminhos e nomes de planilhas para adequar a seu caso.
  Set wkbOrigem = Workbooks.Open("C:\Users\getronics.fragoso\Perossi\Amaury - Planilha de Reembolso.xlsb")
  Set wksOrigem = wkbOrigem.Worksheets("Relatorio de despesas")
  Set wkbDest = Workbooks.Open("C:\Users\getronics.fragoso\teste - Reembolso 2º Ciclo Setembro_SDOSS.xlsm")
  Set wksDest = wkbDest.Worksheets("Consolidado")
  
  'Descobre a última linha da planilha de destino
With wksDest
    wksDest.Range("b1").Select
    wksDest.Range("b1").End(xlDown).Offset(1, 0).Select => mas nessa linha está dando erro de execução 9

End With
  
'Range("e1").Select
'Range("e1").End(xlDown).Offset(1, 0).Select
'ActiveCell.Value = Me.cbologmein
'ActiveCell.Offset(1, 0).Activate
  
  
  wksOrigem.Range("A4:Q250").Copy
  wksDest.Range("b1").PasteSpecial Paste:=xlPasteValues
  
  wkbOrigem.Close SaveChanges:=False
  wkbDest.Close SaveChanges:=True

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×