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 | 
 

 Vba- Recorta diversos arquivos e salva em uma única base

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
hiroshi.xiong



Mensagens : 3
Data de inscrição : 27/04/2015

MensagemAssunto: Vba- Recorta diversos arquivos e salva em uma única base   Seg Abr 27, 2015 8:45 pm

Boa tarde

Gostaria de implementar uma rotina em vba, em que ele abre diversos arquivos(arquivo1, arquivo2) e recorta para uma única base de dados(Geral) e salva posteriormente.

Tentei implementar essa rotina, no entanto, apesar de usar o "cut", ele apenas copia e cola os dados.

Inverti os comandos de diversas maneiras, mas não obtive sucesso, se alguém puder ajudar, segue o código abaixo :



Sub Compilar()

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With


'Copiar dados de um Livro para outro
Dim wsOrigem As Worksheet
Dim wsDestino1 As Worksheet
Dim wsDestino2 As Worksheet




'Arquivo Destino, abrimos primeiro


Workbooks.Open Filename:="\\arqsv0\sg\Melhoria\Evidencias\DADOS\arquivo1.xlsx"

Set wsDestino1 = Workbooks("arquivo1.xlsx").Worksheets("Plan1")

Set wsOrigem = Workbooks("Geral.xlsb").Worksheets("Plan1")

With wsDestino

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut



End With

Workbooks("arquivo1.xlsx").Close SaveChanges:=True


With wsOrigem


Range("A2").Select
Selection.End(xlDown).Select ' crtl + baixo

ActiveCell.Offset(1, 0).Select ' seleciona a próxima linha

Workbooks("Geral.xlsb").Worksheets("Plan1").Paste

End With

' abre segundo arquivo
Workbooks.Open Filename:="\\arqsv0\sg\Melhoria\Evidencias\DADOS\arquivo2.xlsx"

Set wsDestino2 = Workbooks("arquivo2.xlsx").Worksheets("Plan1")


With wsDestino2

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut



End With

Workbooks("arquivo2.xlsx").Close SaveChanges:=True


With wsOrigem


Range("A2").Select
Selection.End(xlDown).Select ' crtl + baixo

ActiveCell.Offset(1, 0).Select ' seleciona a próxima linha



End With



Workbooks("Geral.xlsb").Worksheets("Plan1").Paste


'Fecha o Arquivo Destino e Salva

MsgBox "Dados salvos com sucesso !"
Voltar ao Topo Ir em baixo
Ver perfil do usuário
jeversong2014



Mensagens : 13
Data de inscrição : 29/04/2014
Idade : 24

MensagemAssunto: Re: Vba- Recorta diversos arquivos e salva em uma única base   Qui Maio 07, 2015 5:14 pm

bom dia,

Você poderia simplesmente após copiar os dados da planilha apagá-los, utilize:

'...coloquei só um pedaço da sua macro

With wsDestino

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:L3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut

'minha contribuição
selection.delete 'use esse para excluir as linhas selecionadas
'ou
selection.clearcontents 'use esse para apagar os dados das linhas selecionadas

espero ter ajudado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hiroshi.xiong



Mensagens : 3
Data de inscrição : 27/04/2015

MensagemAssunto: Implementação resolvida   Ter Maio 19, 2015 6:38 pm


Jeversong !!


Deu certo aqui !

Consegui implementar o arquivo, mas através da rotina de recortar e colar mesmo.

A diferença é que eu deveria colocar o código de salvar, depois de colar os dados na planilha geral




Obrigado pela ajuda
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Vba- Recorta diversos arquivos e salva em uma única base   Hoje à(s) 8:21 pm

Voltar ao Topo Ir em baixo
 
Vba- Recorta diversos arquivos e salva em uma única base
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [INSTALAÇÃO e BACKUP] Arquivos de apps do kies
» [PEIDO] Como subir arquivos no 4Shared/Mediafire
» Mais de 100 Brushes Diversos
» [ON]Arquivos Fla 02
» Diversos Brushes

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: