Exportar Excel para PDF com dados de célula
Enviado: 09 Mar 2016 às 09:52
Pessoal, bom dia!
Criei a macro abaixo para salvar uma planilha em PDF utilizando os dados de uma célula como nome do arquivo.
Se troco o "Range("CD17").Value" por "Range("CD17").Select", ele salva certinho, porém com o nome "Verdadeiro.pdf".
Testei também o NomeArquivo sem o ActiveSheet no começo e também não funcionou.
Alguém sabe o que estou fazendo errado?
Obrigado!!
Criei a macro abaixo para salvar uma planilha em PDF utilizando os dados de uma célula como nome do arquivo.
Código: Selecionar todos
Porém, dá erro e o código inteiro fica destacado em amarelo.Sub SalvarArquivoPDF()
Dim NomeArquivo As String
NomeArquivo = ActiveSheet.Range("CD17").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\douglas\relatório\" & NomeArquivo & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "O arquivo foi salvo corretamente.", vbOKOnly, "Arquivo Salvo"
End SubSe troco o "Range("CD17").Value" por "Range("CD17").Select", ele salva certinho, porém com o nome "Verdadeiro.pdf".
Testei também o NomeArquivo sem o ActiveSheet no começo e também não funcionou.
Alguém sabe o que estou fazendo errado?
Obrigado!!