Macro SaveAs com Data e Hora

[Visitante]

Olá amigos,

Não sei se é possível.

Estou usando a macro abaixo pra fazer um backup com data e hora de um determinado arquivo, mas agora preciso fazer o backup em 8 arquivos de 8 pessoas diferentes que é gerado automaticamente. Existe uma forma de manter o nome atual do arquivo e incluir a data e hora que esta sendo salvo?

Exemplo:

O arquivo chama-se FF.xls e quando eu salvar ficaria FF 22-01-2013 08:55:33.xls, tem como?

Abaixo a macro que eu uso:

ActiveWorkbook.SaveAs Filename:="D:\SaveBk\Format(Now, "dd-mm-yyyy-hhmmss") & ".xls"

Obrigado.

[jeffsilveira]

ActiveWorkbook.SaveAs _
Filename:="D:\SaveBk\" & _
Left(ActiveWorkbook.Name, WorksheetFunction.Search(".", ActiveWorkbook.Name, 1) - 1) & _
" " & Format(Now, "dd-mm-yyyy-hhmmss") & ".xls"

[Visitante]

ActiveWorkbook.SaveAs _
Filename:="D:\SaveBk\" & _
Left(ActiveWorkbook.Name, WorksheetFunction.Search(".", ActiveWorkbook.Name, 1) - 1) & _
" " & Format(Now, "dd-mm-yyyy-hhmmss") & ".xls"

Jeff, funcionou perfeitamente!

Obrigado pela ajuda!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.