Macro para Salvar planilha
Enviado: 26 Set 2016 às 15:34
por SINESIOML
Boa Tarde aos colegas
Desejo uma ajuda em uma macro para salvar a planilha, sou seja "salvar como" esta planilha,,,
a macro salvaria com um nome copiado de uma celula e salvaria com uma extenção que tambem tem na célula e o local
agradeço desde já
Re: Macro para Salvar planilha
Enviado: 26 Set 2016 às 16:54
por alexandrevba
Boa tarde!!
Tente...
Código: Selecionar todosSub AleVBA_3132()
'Não testado
Dim fileName As String
fileName = Range("B2").Value & strClean(Range("B1").Value) & Range("B3").Value
ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Código: Selecionar todosFunction strClean(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
.Pattern = "[\[\]|\/\\:\*\?""<>]"
.Global = True
strClean = .Replace(strIn, vbNullString)
End With
Caso houver algum problema nos testes, tente esse:
Código: Selecionar todosSub AleVBA_3132V2()
'http://www.ozgrid.com
Dim FName As String
Dim FPath As String
Dim FExtention As String
FName = ActiveWorkbook.Sheets("Plan1").Range("B1")
FPath = ActiveWorkbook.Sheets("Plan1").Range("B2")
FExtention = ActiveWorkbook.Sheets("Plan1").Range("B3")
ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName & FExtention
End Sub
Att
Re: Macro para Salvar planilha
Enviado: 26 Set 2016 às 18:51
por SINESIOML
Infelizmente não deu certo amigo
Macro para Salvar planilha
Enviado: 26 Set 2016 às 22:08
por SINESIOML
Colega Alexandre deu certo esta ultima macro... do modo que eu queria....muito obrigado....