1

Não entendo muito de VBA, porém preciso de uma rotina que salve cada uma das planilhas de um arquivo em PDFs separados, por exemplo:

O arquivo de excel RELATORIO tem dentro dele 24 planilhas (nomeadas: Ranking_1, RAnking_2, RAnking_3, ..., RAnking_24) há ainda duas planilhas base1 e base2 que não devem ser convertidas em pdf.

Pesquisando na internet encontrei um rotina, porém não consigo deixar automatica para salvar os 24 arquivos automaticamente; nessa rotina preciso colocar o nome a ser salvo na ordem em que as abas aparecem. Segue a rotina:

Sub Relatorio_PDF_v2()
Dim sh As Worksheet
Dim strNome As String 'Declaração do nome para abertura do box de inserção de número do registro
Dim Caminho As String 'Declaração endereço onde será salvo o documento
Dim Abrir As Boolean 'Declaração para abertura do registro após salvamento

  For Each sh In ThisWorkbook.Worksheets
  If VBA.LCase(VBA.Trim(sh.Name)) <> VBA.LCase("DADOS") And _
     VBA.LCase(VBA.Trim(sh.Name)) <> VBA.LCase("TABELA_DIN_GERAL") Then

 
       strNome = InputBox("Insira o nome do Relatório", "Gerador de Relatório em .pdf")
       Caminho = "C:\Users\" & Environ$("Username") & _
       "\Desktop\SAIDA_RANKING\" & "Ranking -  " & strNome
 
'Sai do processo de salvamento
   If strNome = "" Then
        MsgBox ("Salvamento Cancelado!!!")
    Exit Sub
    End If
       
            sh.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Caminho, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=Abrir

 
   End If
   Next sh
End Sub

1 Resposta 1

0

Tudo bem?

Isso é bem simples de fazer! Para o nome do arquivo PDF ter o mesmo nome da aba da planilha sem que você precise digitar o nome todas as vezes, é só substituir o código:

strNome = InputBox("Insira o nome do Relatório", "Gerador de Relatório em .pdf")

Por: strNome = sh.Name

O comando sh.Name captura o nome de cada aba da planilha.

Espero que ajude!

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .