Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar dados para o...
 
Notifications
Clear all

Copiar dados para outro livro

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
866 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite,

Eu tenho 2 livros iguais e pretendo copiar os dados de um para o outro para as mesmas células (origem e destino).

Ambos os livros foram transformados em extensão .exe tipo executáveis…

E é aqui que me encontro, não consigo fazer algo:

Dim LivroOrigem As Application
Dim LivroDestino As Worksheet
 Workbooks.Open Filename:="C:\Teste - Copiar Livro 1 para 2Livro2.xls"
Set LivroOrigem = Workbooks("NOVA VERSÃO.exe").Worksheets("Plan5")
Set LivroDestino = Workbooks("ANTIGA VERSÃO.exe").Worksheets("Plan5")
With wsOrigem
.Range("A10:A66").Copy Destination:=LivroDestino.Range("A10")
.Range("B10:B66").Copy Destination:=LivroDestino.Range("B10")
…
…
…

Na linha 3 coloquei:

Shell (C:Teste - Copiar Livro 1 para 2Livro2.xls)

Mas não consigo definir o range por se tratar de um .exe

Alguém me dá umas luzes?

Obrigado,

njesus

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/10/2012 5:05 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou a explicar mal o que pretendo?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2012 9:09 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sei que estou a ser chato... com esta extenção será possível fazer alguma coisa???

Desde já muito obrigado...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2012 3:22 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não entendi o que deseja fazer, um arquivo excel não é transformado em .exe (até onde sei) então ao que disse:
"Ambos os livros foram transformados em extensão .exe tipo executáveis"
Arquivos excel funcionam somente com suas extenções nativas (xls ou Xlsx ou Xlsm ou xlsb)

Seria interessante saber em que momento vc deseja copiar de qual arquivo para qual destino

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2012 9:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro reinaldo,

Sim, foram convertido em exe, veja o seguinte link (por exemplo pois existem mais formas...)

http://orlando.mvps.org/

Desta forma, os livros ficam mais leves, pois tenho alguns com 16 e 30MB.

Então, vou tentar explicar melhor...

Eu na verdade tenho "N" de livros, cada um pertence a um grupo ou entidade, todos funcionam da mesma forma, tem as mesmas planilhas, exibem os mesmo relatórios, gráficos, etc... mas com valores diferentes, digamos que são as BD (Bases de Dados).

Eu com o tempo tenho necessidade de fazer alterações e novidades, acresentar novas folhas, novas tarefas ou apresentação de resultados, etc..., e quando era 2 ou 3 BD repetia o meu trabalho 2 ou 3 vezes, às vezes 4 ou 5 porque corria mal, etc...

De salientar que estas BD tem senhas de acesso, "login", "N" de formulas, etc, cerca de 5 anos de trabalho... logo não consigo por aqui... nem parte...

Consegui construir a parte do codigo que apresentei em cima... mas quando apliquei numa das BD deu erro por se tratar de EXE e não XLS.

Tentei mudar algumas coisas mas quando chego ao Range de células a copiar, não consegui dar a volta...

Assim, gostava de construir uma macro:

Macro gravada no novo Livro com as novidades...
Executar e essa macro e:
- Abrir a BD desejada...
- Copiar as celulas das planilhas definidas (ou seja a informação dessa BD)
- Colar na BD com as alterações ou digamos com a upgrade...

Confuso ainda???

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2012 11:16 am
Forum Jump:
  Tópico Anterior
Próximo Tópico