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,641 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

(@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

(@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

(@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