Criar pasta com o nome de célula ou variável e salvar em PDF

Nesse post mostro como criar pasta e salvar arquivo em PDF dentro dela, o nome da pasta pode ser o conteúdo de uma célula, de uma variável, ou ainda de um textbox/combobox...

No código abaixo uso a célula E3 da planilha selecionada para ser o nome da pasta e também para criar o PDF que será salvo nessa mesma pasta...

    Dim caminho As String
    Dim pasta As Object, NomePasta
   
    Set pasta = CreateObject("Scripting.FileSystemObject")
    NomePasta = ActiveWorkbook.Path & "\" & Range("E3").Text
    
   If Not pasta.FolderExists(NomePasta) Then
        pasta.CreateFolder (NomePasta)
   End If
        
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\" & Range("E3") & "\" & "Relatório Nº " & Range("E3") & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
    
    caminho = NomePasta & "\" & "Relatório Nº " & Range("E3") & ".pdf"
    Me.txt_arquivo = caminho


A variável caminho irá armazenar o caminho, diretório, onde o arquivo gerado foi salvo e será mostrado dentro da caixa de texto txt_arquivo....


Mais detalhes sobre o procedimento, pode ser encontrado no vídeo abaixo


 

Att.

Renam

link Dropbox para Download:

https://www.dropbox.com/s/rjiuhppvnoxu5p0/73%20-%20Criar%20pasta%20com%20o%20nome%20de%20c%C3%A9lula%20ou%20vari%C3%A1vel.xlsm?dl=0