Notifications
Clear all

[Resolvido] Salvar como nome na célula


topscore
(@topscore)
Eminent Member Registered
Entrou: 6 anos atrás
Posts: 33
Topic starter  

Pessoal, seguinte:

B23 = "Relatorio de Progresso - Acesso - 15 Abr 2021"      O nome nesta célula varia

B24 = "C:\Principal\Documentos\Marcela\"      Este é o Thisworkbook.Path

Meu código vai abrir um novo documento e salvar, no mesmo local da minha pasta onde estou trabalhando, com o nome da B23. E não posso digitar o endereço, preciso usar o Thisworkbook.path.

Onde estou errando?

Sub AddNew()

Set NewBook = Workbooks.Add
With NewBook
Dim Nome As String
Dim Caminho As String
Nome = Range("B23").Value
'      O nome fica "Relatorio de Progresso - Acesso - 15 Abr 2021"       Funciona
Caminho = ThisWorkbook.Path & "\"
'      O Caminho fica "C:\Principal\Documentos\Marcela\"           Funciona

'      Não consigo Salvar de jeito nenhum, tentei várias:
'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Nome & ".xlsx"
'ActiveWorkbook.SaveAs Filename:=Caminho & Nome & ".xlsx"
'ActiveWorkbook.SaveAs Filename:=Caminho & [B23].Value & ".xlsx"

.Title = Nome
End With

End Sub

 

 Tentei fazer uma variável nome2, juntando caminho e nome, tentei juntar o ".xlsx" no nome, deixei a barra "\" separado, e mais um monte de coisas. Nada deu certo.

Alguém pode ajudar?

 

****Resolvi, faltou uma maldita barra "\".

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Nome & ".xlsx"

 

Este tópico foi modificado 3 semanas atrás 2 vezes by topscore