Exportação de Pasta...
 
Notifications
Clear all

Exportação de Pasta de Trabalho Excel 2003

5 Posts
2 Usuários
0 Reactions
1,025 Visualizações
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Prezados, bom dia!
Por favor, tenho um arquivo de Excel 2003, que necessita ser copiado do C:Meus DocumentosResumo do Dia para o diretorio Z:Treinamento2014Resumo do Dia, diariamente. Tentei implementar e modificar rotinas existentes na base de pesquisa do Planilhando para copiar e sobrescrever, mas ou gera Erro de Numero e/ou não Copia - de tanto tentar, desisti e exclui tudo o que fiz!
Por favor, podem me ajudar? O arquivo a ser copiado fica aberto e atualizado constantemente. Gostaria que a rotina salvasse o arquivo principal, logo apos, salvasse uma copia no outro diretorio, sobrescrevendo o relatorio existente e que o arquivo principal continuasse aberto.
Abçs!

 
Postado : 19/07/2014 5:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

 
Postado : 19/07/2014 5:52 am
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Alexandre, obrigado!
Novamente tentarei adaptar às minhas necessidades e reporto sobre o ocorrido...
Abçs.

 
Postado : 19/07/2014 6:10 am
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Alexandrevba e Foristas, adaptei um código que o próprio Alexandre criou em 2012 e deu certo no Excel 2007!
Testarei no Excel 2003 e posto como RESOLVIDO. Desde já, muito obrigado!
A rotina Salva a Pasta Atual e Salva o Backup em outro diretório, salvando-o com o Nome do Arquivo Principal e alocando a data e hora do backup.

Sub Elipse2_Clique()
ActiveWorkbook.Save
'Salva o arquivo atual para uma pasta de backup ea pasta padrão
'Note-se que qualquer backup é substituído
Dim MyDate
MyDate = Date 'MinhaData contém a data atual do sistema.
Dim MyTime
MyTime = Time 'Voltar hora atual do sistema.
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs Filename:="E:Nova pasta (2)" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 
Postado : 19/07/2014 9:05 am
(@miranda)
Posts: 46
Trusted Member
Topic starter
 

Prezados, boa tarde!!!
A rotina funcionou tanto no Excel 2003 quanto no 2007.
Fica o registro e o agradecimento! Abçs!

 
Postado : 21/07/2014 10:35 am