Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Rodney Almeida

Excel Local para salvar uma planilha do excel convertida para pdf

Recommended Posts

Bom dia a todos

Preciso salvar uma planilha que foi convertida do excel para pdf, porém com a opção de onde eu ou outro usuário da empresa possa queira definir o local.

Já possuía uma macro que fiz há um tempo atrás, porém essa macro ela salva o arquivo pdf na raiz onde esta localizado o arquivo excel.

e não consegui alterar essa função para que ele salve o arquivo pdf por exemplo na área de trabalho ou de a opção de escolher onde salvar

Segue abaixo a macro que tenho:

 

Sub PDFFERIAS()

Dim SvInput As String
Dim var_MENSAGEM
Dim Nome As String
Dim UltimaLinha As Long

UltimaLinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
    Planilha1.PageSetup.PrintArea = Range("$A$1:$Q$52" & UltimaLinha).Address
Nome = Planilha1.Range("G7")
SvInput = ActiveWorkbook.Path & Application.PathSeparator & Nome & " " & ".pdf"

        With Planilha1
            .ExportAsFixedFormat _
                Type:=x1TypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
        End With

End Sub
 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×