Excel Gerar PDF a partir de determinada aba

[paulocezarpicos]

Galera,

Tô precisando de um empurrãozinho. Peguei um código da net que gera todo um arquivo em PDF, mas queria que gerasse a partir da terceira aba e não estou sabendo adaptar (código abaixo):

 

Sub SalvaArquivoExcelEmPDF()
 ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  "E:\PC SOLAR\Processos\PRÉ-PROJETOS\" & [E64] & ".pdf"
End Sub
 

Ficaria grato se alguém me ajudasse.

[Eder Neumann]

selecione as celuals que quer gerar o pdf, va em armquivo/imprimir e "imprima em pdf"

[paulocezarpicos]

 

Eder Neumann,

Agradecido pela atenção. Mas dessa forma não me serve. Prefiro pelo VBA. Vou aguardar alguém me ajudar

[Muca Costa]

Tente assim:

 

Sub GerarPDF()
On Error Resume Next
    Dim newSheet    As Worksheet
    Dim PLANILHA    As String
    Dim i As Integer
    
    For i = 3 To ThisWorkbook.Sheets.Count 'A partir da 3ª aba
        Set newSheet = ThisWorkbook.Sheets(i)
        newSheet.Activate
        PLANILHA = newSheet.Name
        
        newSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\ " & PLANILHA & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'True
            newSheet = Nothing
    Next
    MsgBox "Arquivos gerados com sucesso!!!", vbInformation, "Geração de arquivos PDF"
End Sub

 

[paulocezarpicos]

Muca Costa,

 

Agradecido pela atenção e pela ajuda. Mas se você salvasse num só arquivo e direcionasse esse arquivo PDF pra ser salvo nesse caminho:

E:\PC SOLAR\Processos\PRÉ-PROJETOS\" & [E64] & ".pdf, eu ficaria grato

[Muca Costa]

Sub GeraPDF()
    Dim FileNome As String
    
    NomeFic = Range("E64")
    If NomeFic = "" Then Exit Sub
    strDir =  "E:\PC SOLAR\Processos\PRÉ-PROJETOS" & "\"
    FileNome = strDir & NomeFic
    
    On Error GoTo ERRO
     
    If Dir(strDir, vbDirectory) = "" Then
        MkDir strDir
        Sheets(Array(3, 4, 5, 6, 7)).Select 'A partir da 3ª aba até a 7ª

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=FileNome, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=True
        MsgBox "Foi criado o documento: " & FileNome
    Else
        Sheets(Array(3, 4, 5, 6, 7)).Select 'A partir da 3ª aba até a 7ª
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=FileNome, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=True
        MsgBox "Foi criado o documento: " & FileNome
         
    End If
    
    Sheets(1).Select
    Exit Sub
     
ERRO:
    MsgBox "Ocorreu um erro, o arquivo não foi criado , verifique se o arquivo não está aberto"

End Sub

 

[paulocezarpicos]

Muca Costa,

 

Perfeita, era o que eu estava desejando mesmo. Só que surgiu um probleminha aqui. Tenho 16 planilhas que aparece como plan1 e quatro que aparece como Planilha1 e estas ultimas o seu código não inclui. O que faço??

[Muca Costa]

Poste seu arquivo para análise...

[paulocezarpicos]

Ok, em anexo

Pre-Projeto.zip

[Muca Costa]

O arquivo tem 20 abas, então seria de 3 a 20 e não de 3 a 18

 

Sheets(Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)).Select