Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Transformar Excel e...
 
Notifications
Clear all

Transformar Excel em PDF

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
750 Visualizações
RSS
 waranha86
(@waranha86)
Posts: 0
New Member
Topic starter
 

Prezados, bom dia;
Desculpa mas quando trata-se de macros eu sou uma negação, mas estou tentando aprender...
Tenho um desafio novo no meu ambiente de trabalho... Crio alguns relatórios de empresas filiais para acompanhar a gestão e mensalmente eu tenho que transformar estas planilhas em PDF.

Cada planilha possui 10 Pastas diferentes e tenho que gerar um arquivo de PDF para cada pasta. Existe alguma forma de automatizar? Como no exemplo da imagem colocar "Filial 1 - EMPRESA TESTE - RELATORIO 1" e assim por diante...
Procurei no Forum porém ainda não tive sucesso.

 
Postado : 09/06/2016 9:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

há vários post desse assunto em nossa base, use a pesquisa!
Tente assim..

Sub AleVBA_20670()
Dim ws As Worksheet
    Dim Fname As String
    For Each ws In ActiveWorkbook.Worksheets
        On Error Resume Next
        Fname = "Nome." & ws.Index & "_result"
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next ws
End Sub

Att

 
Postado : 09/06/2016 9:40 am
Forum Jump:
  Tópico Anterior
Próximo Tópico