Notifications
Clear all

Copia e cola

7 Posts
2 Usuários
0 Reactions
2,167 Visualizações
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa noite família,

To tentando cria uma rotina pra copia um arquivo.xlsm
De uma pasta com a data do dia anterior ex: pasta25-02-2018 e cola na pasta do dia atual pasta26-02-2018
Alguém pra me ajuda ?

Att Vitor hugo

 
Postado : 26/02/2018 5:56 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite família,

To tentando cria uma rotina pra copia um arquivo.xlsm
De uma pasta com a data do dia anterior ex: pasta25-02-2018 e cola na pasta do dia atual pasta26-02-2018
Alguém pra me ajuda ?

Att Vitor hugo

Vitor, não gosto muito deste tipo de resposta, mas veja, você não é um usuário novo e deve saber que para uma ajuda mais próximo ao que quer precisa-se de detalhes, ou seja só pelo que escreveu, eu posso indicar :
1º) utilize o gravador de macros, e depois se não conseguir ajustar, poste aqui.
2º) se utilizar a pesquisa do forum pelos termos "copiar entre arquivos" encontrará 446 resultados, provavelmente alguns já ajudem.

3º) simplesmente por " copia um arquivo.xlsm - De uma pasta com a data do dia anterior ex: pasta25-02-2018 e cola na pasta do dia atual pasta26-02-2018", sem sabermos quais colunas nos basear, onde estão os dados, se os layouts são iguais, ale, de outros detalhes, tem de convir comigo que fica dificil, lembre-se, você tem na cabeça o que quer, todas as informações que precisa, enquanto nós desconhecemos.

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

 
Postado : 26/02/2018 6:06 pm
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa noite Mauro
Dei uma pesquisada mas não encontrei um tópico parecido
Acho que me expressei mal quero mover um arquivo.xlsm de uma pasta para outra ex: tenho uma macro todo dia copio ela de uma pasta e colo em outra, seria essa rotina de copia o arquivo.xlsm e não os dados de coluna e celula
Tentei utilizá o CopyFile mas não conseguir aplicá

Att Vitor

 
Postado : 26/02/2018 6:21 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sem problemas Vitor, por isso que toda informação deve ser detalhada.
Se pesquisar por "Mover arquivos" encontrará pelo menos 300 resultados, mas se já pesquisou e nenhum lhe serviu veja no link abaixo temos alguns procedimentos, veja se consegue ajustar:

Copy and Move files and folders
https://www.rondebruin.nl/win/s3/win026.htm

[]s

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

 
Postado : 26/02/2018 6:36 pm
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Boa noite Mauro,

Obrigado por me auxiliar
Tentei utilizá esse método

    FileCopy "X:fev & Format(Date, "-1 dd.mm.yyyy")Macro Solicitação de Financeiro-3.xlsm", "X:fev & Format(Date, "dd.mm.yyyy")Macro Solicitação de Financeiro-3.xlsm"
[code]

Porém não consigui fazê-lo funciona pra busca da pasta do dia anterior
quando coloco a nome do arquivo "Macro Solicitação de Financeiro-3.xlsm" da linha da erro

 
Postado : 26/02/2018 6:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Mauro,

Obrigado por me auxiliar
Tentei utilizá esse método

FileCopy "X:fev & Format(Date, "-1 dd.mm.yyyy")Macro Solicitação de Financeiro-3.xlsm", "X:fev & Format(Date, "dd.mm.yyyy")Macro Solicitação de Financeiro-3.xlsm"

Porém não consigui fazê-lo funciona pra busca da pasta do dia anterior
quando coloco a nome do arquivo "Macro Solicitação de Financeiro-3.xlsm" da linha da erro

A instrução está montada errada, tente desta forma :

Sub CopiarArquicoPAstas()
    Dim FromPath As String 'De ....
    Dim ToPath As String 'Para ...
    Dim sFileCopy
    Dim sDia_Anterior
    Dim sDia_Atual
    
    'Declaramos as Variáveis
    sDia_Atual = Format(Date, "dd.mm.yyyy") 'Dia Atual
    sDia_Anterior = Format(Date - 1, "dd.mm.yyyy") 'Dia anterior
    sFileCopy = "Macro Solicitação de Financeiro-3.xlsm" 'Arquivo a ser copiado
    
    'Montamos os Caminhos e nome arquivo
    FromPath = "X:fev" & sDia_Anterior & "" & sFileCopy
    ToPath = "X:fev" & sDia_Atual & "" & sFileCopy
    
    'Copiamos
    FileCopy FromPath, ToPath

End Sub

[]s

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

 
Postado : 27/02/2018 6:11 am
(@vitorhsh)
Posts: 0
Trusted Member
Topic starter
 

Bom dia Familia

Obrigado Mauro tava penando pra criar essa rotina tentei de varias formas

Att, Vitor Hugo

 
Postado : 27/02/2018 6:43 am