SaberExcel vba salvar como arquivo diretorio e Nome.
Com uso desse Macro Excel VBA, vamos aprender como salvar um arquivo com determinado nome em determinado local isto salvar a planilha excel com macros no Diretorio Escolhido, Observe que vamos salvar
o exemplo nos formato Data/Hora/Minutos/Segundos . isso para não substiuir o arquivo, salvando a cada interação com nome diferente.
Sub sbx_Salvar_como()
Dim wNOVOARQ As String, wPergunta As String
wPergunta = MsgBox(“Deseja salvar o arquivo como ” & vbCrLf & _
“Exemplo_teste” & “_” & Format(Date, “dd-mmm-yyyy”) & ” ” & _
Format(Time, “h-mm-ss”), vbYesNo, “Escola SaberExcel VBA Estudos”)
If wPergunta = vbYes Then
wCaminho = CreateObject(“Scripting.FileSystemObject”).GetFolder(“C:\vba”).Files.Count + 1
wNOVOARQ = “Exemplo_teste” & “_” & Format(Date, “dd-mmm-yyyy”) & ” ” & Format(Time, “h-mm-ss”) & “.xlsm”
‘ ChDrive “C”
ChDir “C:\vba\”
MsgBox “Arquivo Salvo com Sucesso!!”, vbInformation, “Escola SaberExcel”
End If
End Sub
‘/==============’
Sub sbx_teste()
MsgBox “Arquivo Salvo como ” & vbCrLf & _
“Exemplo_teste” & “_” & Format(Date, “dd-mmm-yyyy”) & ” ” & _
Format(Time, “h-mm-ss”), vbInformation, “Escola SaberExcel VBA Estudos”
End Sub
‘/==============’
Escola SaberExcel VBA Estudos
http://www.saberexcel.com.br
http://membros.saberexcel.com.br
contato@saberexcel.com.br
Comentários