Excel VBA_Cadastrar Diretório Salvamento Arquivos

guicrissantos · 8 de março de 2021

Boa Noite!

Amigos, tenho uma planilha contendo uma série de dados e um código criado para exportação do relatório em pdf.

Neste código é inserido MANUALMENTE o caminho onde será salvo o arquivo.

Este caminho SEMPRE DEVERÁ SER no mesmo local (pasta) onde está armazenado a planilha.

Tudo que preciso é que ao entrar na planilha PELA PRIMEIRA VEZ, o usuário receba um formulário ou janela para percorrer o caminho até onde será salvo os arquivos. Uma vez feito isso, o caminho percorrido ficará gravado no local onde hoje é inserido manualmente e o usuário só precisar repetir o processo, caso a planilha seja removida de seu local original.

O código atual é o seguinte:

Citação

Sub ExportarHorasNormais()
Dim intevalo As Range
Set Intervalo = Range("b1:O29")
ActiveWindow.SmallScroll Down:=-102
ChDir _
"C:\Users\guicr\Desktop\SAE\SAE_Gestão de Processos & Horas\SAE_Gestão de Horas"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\guicr\Desktop\SAE\SAE_Gestão de Processos & Horas\SAE_Gestão de Horas\" & Range("b31") & "_" & Format(Now, "yyyymmdd_hhmmss") _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWindow.SmallScroll Down:=-24
If MsgBox("Relatório de APONTAMENTO DE HORAS salvo com sucesso!", vbOKOnly) = vbYes Then
End If
End Sub

Agradeço imensamente a colaboração de alguém que possa me auxiliar na edição deste código.

No aguardo,

Guilherme Santos

Edson Luiz Branco · 9 de março de 2021

Boa noite, @guicrissantos

4 horas atrás, guicrissantos disse:

Este caminho SEMPRE DEVERÁ SER no mesmo local (pasta) onde está armazenado a planilha.

Nesse caso, você pode retornar diretamente o caminho em que sua pasta de trabalho Excel está através da propriedade ThisWorkbook.Path e usá-la, sem precisar ficar informando ao iniciar. Ex.:

Sub ExportarHorasNormais()
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                  Filename:=ThisWorkbook.Path & "\" & Range("B31") & "_" & Format(Now, "yyyymmdd_hhmmss"), _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False
 MsgBox "Relatório de APONTAMENTO DE HORAS salvo com sucesso!", vbOKOnly
End Sub