COMO SALVAR DATA ESPECÍFICA LOCALIZADA EM UMA CÉLULA PELO VBA?

Question

Boa Tarde! 

Abaixo eu tenho um código em que salva o arquivo do excel em pdf, porém foi pedido para que eu na hora de salvar o arquivo que ele viesse com a data que está na célula J5. Antigamente eu usava este código para nomear o arquivo

nome = "C:\Users\usuário\Desktop\Livro de dados\ " & Format(Date, "ddmmyy") &" Livro de Dados.pdf"

Que fornecia somente a data do DIA em que estava sendo feito. Porém agora necessito que ele indique a data sempre da célula J5 por exemplo, mas ele dá incompatibilidade por causa das "/" que possuem no formato da data e mesmo eu alterando o formatando a célula para que tire a barra, a leitura sempre está sendo a mesma e dando erro.

Alguém consegue solucionar meu problema? 

Obrigado!

Answer 1

Bom dia Vinicius,

Você chegou a tentar extrair a data de uma maneira diferente? Por exemplo:

nome = "C:\Users\usuário\Desktop\Livro de dados" & Format(Now(), "ddmmyy") &" Livro de Dados.pdf" 

Nota, poderia postar o restante do código utilizado para salvar o arquivo, você usa o Application.GetSaveAsFilename, por exemplo?

Answer 2

Olá Vinicius,

Você chegou a tentar algo assim:

Format(Day(Range("J5").Value), "00") & Format(Month(Range("J5").Value), "00") & Right(Format(Year(Range("J5").Value), "0000"), 2)

É meio gambiarra mas vale a tentativa. :)

Att.

Gustavo Sousa

Answer 3

Boa tarde Gustavo! 

Muito obrigado, só esse código o qual você me mandou já solucionou meu problema!

Boa sorte na vida, sucesso!

Answer 4

Olá Vinicius Leonardo Okamoto, tudo bem? 

Bem-vindo à Comunidade da Microsoft.

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até breve!