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