Macro Fechar PDF

[Esdras Pelegrin]

Boa tarde pessoal 

 

Sou novo aqui e gosto bastante de Excel e estou dando os primeiros passos no que diz respeito a macro, fiz uma macro que realiza um filtro, seguida copia o conteúdo filtrado, salva a nova planilha, cria um pdf dessa nova planilha, o que não consegui até o momento foi fechar o PDF.

 

Segue abaixo os códigos, se alguém puder me ajudar.

 

Dim Nome_Projeto As Variant
 

Sub Extrair_Projetos()

   'Realiza um filtro com base por projeto e armazena o nome do projeto na variavel Nome_Projeto
       
    ActiveSheet.Range("$A:$G").AutoFilter Field:=7, Criteria1:="=000000"
    Nome_Projeto = "Projeto 000000"
        
    'cria uma nova planilha e copia e cola o conteudo filtrado acima e salva com o nome do projeto
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Application.CutCopyMode = False
    ChDir "C:\Users\esdras.pelegrin\Desktop"
    ActiveWorkbook.SaveAs filename:= _
        "C:\Users\esdras.pelegrin\Desktop\" & Nome_Projeto & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.ActivateNext
    
    'Salva a Planilha em PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "C:\Users\esdras.pelegrin\Desktop\" & Nome_Projeto & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        openafterpublish:=True
    ChDir "C:\Users\esdras.pelegrin\Desktop"
      
    'Seleciona uma planilha de acordo com o nome atribuido a variavel e fecha a mesma.
    Windows(Nome_Projeto).Activate
    ActiveWindow.Close
    
   'Realiza um filtro com base por projeto e armazena o nome do projeto na variavel Nome_Projeto

    ActiveSheet.Range("$A:$G").AutoFilter Field:=7, Criteria1:="=000062"
    Nome_Projeto = "Projeto 000062"
    
    'cria uma nova planilha e copia e cola o conteudo filtrado acima e salva com o nome do projeto
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Application.CutCopyMode = False
    ChDir "C:\Users\esdras.pelegrin\Desktop"
    ActiveWorkbook.SaveAs filename:= _
        "C:\Users\esdras.pelegrin\Desktop\" & Nome_Projeto & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.ActivateNext
  
   'Salva a Planilha em PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "C:\Users\esdras.pelegrin\Desktop\" & Nome_Projeto & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        openafterpublish:=True
    ChDir "C:\Users\esdras.pelegrin\Desktop"
  
    'Seleciona uma planilha de acordo com o nome atribuido a variavel e fecha a mesma.
    Windows(Nome_Projeto).Activate
    ActiveWindow.Close
    
    'Limpa todos os filtros
    Selection.AutoFilter
    Range("A3:I3").Select
    Selection.AutoFilter
    Range("A1").Select

 

MsgBox "Processo Finalizado"

 

End Sub

[CasaDoHardware]

Se você nao quer que  o PDF abra apos a criação

 

Troque neste ponto

 

openafterpublish:=True por false

[Esdras Pelegrin]

ele cria o arquivo sem abrir o PDF, entendi, obrigado pela resposta