Salvar Arquivo PDF área de trabalho (computadores em rede)

2024 - VBA & Macros

Post Recente por Aloizio Z 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,830 Visualizações

RSS

Aloizio Z

(@aloizio-z)

Posts: 4

New Member

Topic starter

Prezados, boa tarde!!

Preciso elaborar a seguinte rotina, tenho uma pasta de trabalho em Excel de uso público (salvo em rede), os diversos usuários precisam gerar arquivos em PDF das planilhas desta pasta, o ideal seria que este arquivo fosse salvo diretamente na área de trabalho de cada usuário. Tenho o script abaixo que utilizo, no entanto, minha dificuldade é a seguinte esse arquivo habilita a geração do PDF somente em minha máquina, pois direciona especificamente minha máquina...

Temos alguma forma de modificar este diretório para que, quando o usuário gerar o arquivo PDF, este seja gerado na área de trabalho do usuário?

Desde já muito obrigado!

Sub PDF_015()
'
' PDF_015 Macro
'
    ChDir "C:Users[b]aloizio[/b]Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:Usersaloizio_juniorDesktopF.UHT.015.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Postado : 09/01/2018 12:41 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Não testado!!!!
Tente algo assim...

Sub AleTeste()
 Dim DeskTop As String
    DeskTop = CreateObject("WScript.Shell").SpecialFolders("Desktop")

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DeskTop & Application.PathSeparator & "F.UHT.015.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Att

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

Postado : 09/01/2018 1:04 pm