VBA 엑셀파일 PDF로 저장하기

Sub SaveAsPDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\aa\Desktop\Example.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

 

 

다른방법으로는 팝업이 중간에 나와 지정하는 방법

 

Sub 프로시저()

    Dim 파일 As Variant
    Dim 파일형식 As String
    
    파일형식 = "PDF 파일 (*.pdf), *.pdf"
    
    파일 = Application.GetSaveAsFilename(FileFilter:=파일형식, _
                                         Title:="PDF 파일로 저장")
                                         
    If 파일 <> False Then
    
        On Error Resume Next
        
        ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
                                         Filename:=파일, _
                                         Quality:=xlQualityStandard, _
                                         IncludeDocProperties:=True, _
                                         IgnorePrintAreas:=True, _
                                         OpenAfterPublish:=False
                                         
        If Err.Number = 0 Then
            MsgBox "파일을 PDF 파일로 저장했습니다." & vbCr & vbCr & 파일
        End If
        
    End If

End Sub