Excel - macro para salvar o arquivo com a data atual

[p4dre]

Tenho uma planilha e fiz uma macro pra extrair a aba e salvar ela. Só que ela é sempre salva com o mesmo nome, gostaria que fosse salva com um nome e a data do dia vigente, a informação da data eu tenho na minha planilha, gostaria q ela se junta-se no nome do arquivo.

Exemplo:

C:\Documents and Settings\p4dre\Meus documentos\Blabla\VAZOES 18-02-2009.xls

E gostaria que no dia seguinte rodando a Macro salva como :

C:\Documents and Settings\p4dre\Meus documentos\Blabla\VAZOES 19-02-2009.xls

Obs: A informaçao da data eu tenho na planilha .

Isso é possivel ?

Grato

[crudo]

Você pode fazer assim:

Me.SaveAs nome_arquivo

Kill arquivo_anterior

Primeiro você salva o seu arquivo com o novo nome (com a data atual) e depois apaga o arquivo anterior.

[p4dre]

Crudo não posso apagar o outro arquivo tenho que arquiva-lo, e so ir adicionando o do dia, só que quero que ele mude o nome com a data !

Estou trabalhando em algo dessa forma, consegue acrescentar algo, porque a linha do caminho onde vai ser salvo o arquivo esta ficando vermelha, dizendo erro de compilação !!!!!

Sheets("PLANILHA A SER ENVIADA (3)").Select

Sheets("PLANILHA A SER ENVIADA (3)").Copy

Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1").Select

ActiveSheet.Shapes("Button 8").Select

Application.CutCopyMode = False

Selection.Delete

ActiveWorkbook.SaveAs & "C:\Vazoes" & Format(Date, "dd-mm-yyyy") & ".xls"

ActiveWorkbook.Close

Grato

[crudo]

Onde você colocou esse código? qual evento?

Qual é, exatamente, o erro que aparece?

Poste a planilha aqui, assim fica mais fácil saber o que está acontecendo.

[paulosemblano]

Retire o que está em vermelho:

ActiveWorkbook.SaveAs & "C:Vazoes" & Format(Date, "dd-mm-yyyy") & ".xls"