Notifications
Clear all

Salvar Planilha com Nome da Célula em Pasta Específica

5 Posts
2 Usuários
0 Reactions
1,943 Visualizações
(@ricanero)
Posts: 41
Eminent Member
Topic starter
 

Boa Noite / Bom Dia

Gostaria de pedir uma ajuda para vocês, tentei o máximo que meu conhecimento permitia, pesquisei bastante e só consegui chegar até uma certa parte.

Nesta planilha eu fiz uma macro que cria uma pasta com o nome que quero dar para ela

Na célula W1 está o nome que a pasta terá
Na célula W2 está o caminho em que esta pasta deve ser criada
Na célula W3 está o nome que quero dar para o arquivo

Só consegui criar a pasta.

Gostaria de salvar este arquivo apos pronto nessa pasta criada (atribuir a Macro ao disquete). E em uma próxima etapa, gostaria de selecionar as abas CONFIRMAÇÃO DE DATAS, RELATÓRIO INSTALAÇÃO e RELATÓRIO DESPESAS e salvar as três em um único arquivo em pdf. As margens já estão tabuladas. (atribuir essa Macro ao símboilo do pdf)

Agradeceria muito se alguem pudesse me ajudar.

Desde já obrigado

Att

Ricardo

 
Postado : 30/03/2017 6:12 pm
felipemazz
(@felipemazz)
Posts: 59
Trusted Member
 

Amigo, veja se este link te ajuda:

http://www.hardware.com.br/comunidade/s ... ha/978141/

Se não ajudar avise, que tento pegar hoje a noite o Arquivo para editá-lo e enviar para você.

PEsquisas rapidas aqui, acho que este código já resolve o seu problema:

dirCopia = “diretorio do arquivo“
nomeCopia = “nome do arquivo”
ActiveWorkbook.SaveAs Filename:= _
dirCopia + nomeCopia, _
FileFormat:=xlNormal, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False
 
Postado : 10/04/2017 9:47 am
(@ricanero)
Posts: 41
Eminent Member
Topic starter
 

Boa Tarde Felipe,

Vizualizei sua resposta agora, fiz o teste mas não consegui.

Se puder fazer a edição do arquivo, agradeço.

Desde já obrigado

Ricardo

 
Postado : 13/04/2017 2:37 pm
felipemazz
(@felipemazz)
Posts: 59
Trusted Member
 

Ta na Mão Ricanero!
Qualquer dúvida me avise!

(Está com o nome Teste.xlsm pois eu estava testando aqui no meu PC :D )

(Não esquece de clicar no joinha se resolveu seu problema!)

 
Postado : 13/04/2017 4:40 pm
(@ricanero)
Posts: 41
Eminent Member
Topic starter
 

Bom Dia Felipe,

Acabei de fazer o downlaod, mas não consigo abrir o arquivo, dà erro de extensão.

Obrigado por ajudar.

Ricardo

 
Postado : 17/04/2017 9:12 am