Excel에서 VBA를 사용하여 선택한 시트를 PDF로 저장

Question

많은 워크 시트가있는 통합 문서가 있습니다. 첫 번째 페이지는 Worksheet 1이고 두 번째 페이지는 Worksheets 2-x 인 두 페이지 PDF로 저장하려고합니다. 내 코드는 현재 통합 문서의 각 워크 시트에 대해 개별 PDF를 저장할 수 있습니다. 나는 그것을하기 위해 무엇을 덧붙일 지 궁금합니다. 누구든지 조언을 공유 할 수 있습니까?

감사합니다.

Option Explicit 

Sub createPDFfiles() 
Dim ws As Worksheet 
Dim Fname As String 
For Each ws In ActiveWorkbook.Worksheets 
    On Error Resume Next 

    Fname = "C:\Folder\" & ws.Name & "Report" & Format(Date, "yyyy-mm-dd") & ".pdf" 

    ws.ExportAsFixedFormat _ 
     Type:=xlTypePDF, _ 
     Filename:=Fname, _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False 
Next ws 
End Sub 

Answer 1

당신은 워크 시트를 열거하고 루프 내부 저장 당신을 다하고 있습니다. 이것이 워크 시트 당 하나의 PDF를 얻는 이유입니다. ActiveWorkbook.Worksheets 대신 통합 문서를 사용해보십시오.

Answer 2

가. 그것은 내내 얼굴을 쳐다보고있었습니다. 선택 항목을 포함하도록 코드를 수정하고 두 번째 워크 시트 ws.Name의 이름을 지정했습니다. 최종 스크립트는 다음과 같습니다.

Option Explicit 

    Sub createPDFfiles() 
    Dim ws As Worksheet 
    Dim Fname As String 
    For Each ws In ActiveWorkbook.Worksheets 
     On Error Resume Next 

     Fname = "C:\Folder\" & ws.Name & "Report" & Format(Date, "yyyy-mm-dd") & ".pdf" 

     Sheets(Array("Sheet1", ws.Name)).Select 

    ActiveSheet.ExportAsFixedFormat _ 
      Type:=xlTypePDF, _ 
      Filename:=Fname, _ 
      Quality:=xlQualityStandard, _ 
      IncludeDocProperties:=True, _ 
      IgnorePrintAreas:=False 
    Next ws 
End Sub 

여러분 모두를 도와 주셔서 감사합니다!