Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

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

Ir para baixo 
2 participantes
AutorMensagem
hiroshi.xiong




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

Vba- Recorta diversos arquivos e salva em uma única base Empty
MensagemAssunto: Vba- Recorta diversos arquivos e salva em uma única base   Vba- Recorta diversos arquivos e salva em uma única base EmptySeg 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 !"
Ir para o topo Ir para baixo
jeversong2014




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

Vba- Recorta diversos arquivos e salva em uma única base Empty
MensagemAssunto: Re: Vba- Recorta diversos arquivos e salva em uma única base   Vba- Recorta diversos arquivos e salva em uma única base EmptyQui 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.
Ir para o topo Ir para baixo
hiroshi.xiong




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

Vba- Recorta diversos arquivos e salva em uma única base Empty
MensagemAssunto: Implementação resolvida   Vba- Recorta diversos arquivos e salva em uma única base EmptyTer 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Vba- Recorta diversos arquivos e salva em uma única base Empty
MensagemAssunto: Re: Vba- Recorta diversos arquivos e salva em uma única base   Vba- Recorta diversos arquivos e salva em uma única base Empty

Ir para o topo Ir para baixo
 
Vba- Recorta diversos arquivos e salva em uma única base
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Copiar dados de vários arquivos para uma única planilha
» VBA - Acessar página WEB com login, e salvá-la
» Comparar dados em arquivos diferentes
» Contagem de arquivos
» VBA - Como contar qtd de arquivos dentro de diretórios no Excel

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: