Publicar em PDF

2024 - VBA & Macros

Post Recente por ttaquino 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,159 Visualizações

RSS

ttaquino

(@ttaquino)

Posts: 3

New Member

Topic starter

Bom dia a todos.

Pessoal, tenho uma planilha com vários modulos e formulários, acontece que, sempre que finalizo um relatório preciso fazer a publicação em PDF desse arquivo.
Porém, não possui uma pasta especifca, e nem um nome.

Gostaria de saber se existe algum código VBA que abra a janela de salvar como, em PDF, para que o usuario escolha o local e o nome do arquivo.
Ou seja, não pode ser um save automático, preciso escolher o diretório.Pois sempre há alterações nas pastas.

Obrigado.

Postado : 13/06/2016 8:53 am

messiasmbm

(@messiasmbm)

Posts: 223

Estimable Member

Pode adaptar as suas necessidades ...


Function Abre_Pasta()
Dim NomeArquivo As String
Dim diretorio As String
NomeArquivo = InputBox("Escreva o nome do arquico e click em OK .")
If NomeArquivo = "" Then
MsgBox "Cancelado pelo Usuário !"
Exit Function
End If
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Por Favor selecione a Pasta", 0, "C:")
If (Not objFolder Is Nothing) Then
On Error Resume Next
If IsError(objFolder.Items.Item.Path) Then diretorio = CStr(objFolder): GoTo Here
On Error GoTo 0
If Len(objFolder.Items.Item.Path) > 3 Then
diretorio = objFolder.Items.Item.Path & Application.PathSeparator
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=diretorio + NomeArquivo & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
diretorio = objFolder.Items.Item.Path
End If
Else
MsgBox "Cancelado pelo Usuário !"
Exit Function
End If
Here:
Set objFolder = Nothing
Set objShell = Nothing

End Function

Postado : 13/06/2016 10:53 am