Salvar arquivos com nomes diferentes utilizando VBA

[Guest Italo]

Por favor verifique se tem como me ajudar.

Preciso salvar um relatório mensal com nomes diferentes, EX:"relatório maio/08" e "relatório junho/08", mas gostaria que a alteração do mês e ano no nome do formulário fosse automática de acordo com o mes atual, para que eu possa adicionar este comando a uma macro que extrai relatórios.

Isso é possivel?

[Mendrot]

Por favor verifique se tem como me ajudar.

Preciso salvar um relatório mensal com nomes diferentes, EX:"relatório maio/08" e "relatório junho/08", mas gostaria que a alteração do mês e ano no nome do formulário fosse automática de acordo com o mes atual, para que eu possa adicionar este comando a uma macro que extrai relatórios.

Isso é possivel?

Bom dia!

Informe qual aplicativo você está utilizando....Access, Excel ou Word.

Se for excel já vou mandar um exemplo, você pode replicar p/ o Access mudando apenas a forma de salvar, o que você realmente precisa que é o mês e ano automático vou te ajudar.

Sub Salva_Rel()

Dim sAno As String, sMes As String, sData as String, sRelat as String

sData = Date

sAno = Mid(sData, 9, 2)

sMes = Mid(sData, 4, 2)

Select Case sMes

Case "01"

sMes = "Janeiro"

Case "02"

sMes = "Fevereiro"

Case "03"

sMes = "Março"

Case "04"

sMes = "Abril"

Case "05"

sMes = "Maio"

Case "06"

sMes = "Junho

Case "07"

sMes = "Julho"

Case "08"

sMes = "Agosto"

Case "09"

sMes = "Setembro"

Case "10"

sMes = "Outubro"

Case "11"

sMes = "Novembro"

Case "12"

sMes = "Dezembro"

End Select

sRelat = "Relatório " & sMes & "/" & sAno

Espero ter ajudado....Abs :rolleyes:

[Guest italo]

Por favor verifique se tem como me ajudar.

Preciso salvar um relatório mensal com nomes diferentes, EX:"relatório maio/08" e "relatório junho/08", mas gostaria que a alteração do mês e ano no nome do formulário fosse automática de acordo com o mes atual, para que eu possa adicionar este comando a uma macro que extrai relatórios.

Isso é possivel?

Bom dia!

Informe qual aplicativo você está utilizando....Access, Excel ou Word.

Se for excel já vou mandar um exemplo, você pode replicar p/ o Access mudando apenas a forma de salvar, o que você realmente precisa que é o mês e ano automático vou te ajudar.

Sub Salva_Rel()

Dim sAno As String, sMes As String, sData as String, sRelat as String

sData = Date

sAno = Mid(sData, 9, 2)

sMes = Mid(sData, 4, 2)

Select Case sMes

Case "01"

sMes = "Janeiro"

Case "02"

sMes = "Fevereiro"

Case "03"

sMes = "Março"

Case "04"

sMes = "Abril"

Case "05"

sMes = "Maio"

Case "06"

sMes = "Junho

Case "07"

sMes = "Julho"

Case "08"

sMes = "Agosto"

Case "09"

sMes = "Setembro"

Case "10"

sMes = "Outubro"

Case "11"

sMes = "Novembro"

Case "12"

sMes = "Dezembro"

End Select

sRelat = "Relatório " & sMes & "/" & sAno

Espero ter ajudado....Abs :rolleyes:

Boa noite

Amigão, o código roda sem depurar mais não salva. Qual comando devo usar para salvar a planilha com o nome citado no sRelat.

Aguardo

Grato!

[Guest João.Neto]

Workbooks.Save "c:\" & sRelat & ".xls",

Existe um porém. sRelat não pode conter o caractere "/", senão dá erro. O correto é:

sRelat = "Relatório " & sMes & sAno