Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
SALVAR EM PDF COM D...
 
Notifications
Clear all

SALVAR EM PDF COM DATA

 
2024 - VBA & Macros
Post Recente por denilsonsl 9 anos atrás
8 Posts
4 Usuários
0 Reactions
1,621 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Boa tarde mestres.

Preciso de uma ajuda nesse codigo abaixo:

Sub Salvar_PDF()

Plan19.Select

nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Range("d2").Value

ChDir "P:EmbalagemPCPProgramação 2015IndustrializaçãoREMESSA 2016"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome_arquivo, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=1 = False

MsgBox "Remessa salva", vbInformation

End Sub

EXPLICANDO: O código acima salva uma planilha na rede da empresa, so que não esta dando certo salvar na descrição do arquivo a data que esta nessa linha de código -- Range("d2").Value, a data é com a formula =hoje().

So que, quando vai salvar da erro de compilação...

Alguém sabe resolver essa questão?

 
Postado : 24/02/2016 12:38 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

qual o resultado de:

nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Range("d2").Value

como é o nome desse arquivo q vc tá tentando salvar? e qual o erro que dá ? qual o texto do erro?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/02/2016 12:41 pm
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

O nome do arquivo para salvar é: REMESSA E COBRANÇA - ( Range("a1").Value )
Numero da Ordem de produção - ( Range("e11").Value )

O erro que esta dando é: "ERRO EM TEMPO DE EXECUÇÃO 1004"

 
Postado : 24/02/2016 1:02 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Depois que o código passa e executa esta linha:
nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Range("d2").Value

qual é o valor que está contido na variável nome_arquivo?

eu já entendi a forma q vc quer chegar no valor, mas eu preciso saber exatamente qual o valor dentro da variável !

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/02/2016 1:10 pm
 setti
(@setti)
Posts: 150
Estimable Member
 

você tem que converter a data de / / para - - ou _ _ !!!!

 
Postado : 24/02/2016 3:05 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Se eu entendi

Troque essa linha 

nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Range("d2").Value

Por esta

nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Format(Date, "DD.MM.YYYY")

ou por esta se desejar manter o seu formato 

nome_arquivo = Range("a1").Value & " - " & Range("e11").Value & " " & Format(Range("d2").Value, "DD.MM.YYYY")

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 24/02/2016 3:14 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

por isso que eu insisti em saber como a data é lida pela variável, antes de dar essa dica... .pois se a data for texto, ela possui barras e esse é o problema, mas se a data for número, ou seja, aquele 41235 por exemplo, o erro pode estar em outro local da string.... por isso é importante apontar pra possibilidade de a data ter barras, mas precisamos saber o conteúdo da variável, para podermos apontar diretamente e com assertividade, qual é o erro do salvamento!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/02/2016 8:39 pm
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Bom dia mestres.

Não pude responde ontem, mas o codigo enviado funcionou perfeitamente...

Obrigado.

 
Postado : 25/02/2016 4:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico