Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salvar Arquivo PDF ...
 
Notifications
Clear all

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,809 Visualizações
RSS
 Aloizio Z
(@aloizio-z)
Posts: 0
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

 
Postado : 09/01/2018 1:04 pm
 Aloizio Z
(@aloizio-z)
Posts: 0
New Member
Topic starter
 

Deu certo Amigo Muito obrigado!

 
Postado : 09/01/2018 1:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico