Excel에서 여러 워크북 또는 워크시트를 한 번에 PDF 파일로 변환하는 방법은 무엇입니까?

데이터를 공유하면서 수정을 방지하려는 경우 Excel 파일을 PDF로 변환하는 것은 일반적인 작업입니다. Excel의 다른 이름으로 저장 기능을 사용하면 단일 워크북을 PDF로 변환할 수 있지만, 여러 파일의 경우 시간이 많이 소요될 수 있습니다. 이 가이드에서는 VBA 코드와 Kutools for Excel을 포함한 다양한 방법을 통해 여러 워크북 또는 워크시트를 한 번에 PDF 파일로 빠르게 변환하는 방법을 살펴봅니다.

• 저장 기능을 사용하여 여러 워크북을 하나씩 PDF 파일로 변환하기
• VBA 코드를 사용하여 여러 워크북을 한 번에 PDF 파일로 변환하기
• 강력한 기능을 사용하여 여러 워크북을 PDF 파일로 변환하기
• VBA 코드를 사용하여 워크북에서 여러 워크시트를 개별 PDF 파일로 변환하기
• 손쉬운 기능을 사용하여 워크북에서 여러 워크시트를 개별 PDF 파일로 변환하기

저장 기능을 사용하여 여러 워크북을 하나씩 PDF 파일로 변환하기

일반적으로 Excel의 다른 이름으로 저장 기능을 사용하면 전체 워크북을 PDF 파일로 저장할 수 있습니다. 다음 단계를 따라 진행하세요:

1. PDF 형식으로 변환하려는 워크북을 실행합니다.

2. 파일 > 다른 이름으로 저장을 클릭하고, 다른 이름으로 저장 대화 상자에서 새 파일을 저장할 폴더를 지정한 다음, 저장 형식 드롭다운 목록에서 PDF를 선택하고 옵션 버튼을 클릭하세요. 스크린샷 참조:

3. 그런 다음 나타난 옵션 대화 상자에서 전체 워크북을 선택하세요. 스크린샷 참조:

4. 확인 > 저장을 클릭하면 이 워크북 전체가 PDF 파일 형식으로 저장됩니다.

VBA 코드를 사용하여 여러 워크북을 한 번에 PDF 파일로 변환하기

수백 개의 Excel 파일을 변환해야 하는 경우 위의 방법은 번거로울 수 있습니다. 여기에서는 여러 워크북을 한 번에 PDF 파일로 변환하는 VBA 코드에 대해 설명드리겠습니다. 다음 단계를 따라 진행하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 여러 워크북을 한 번에 PDF 파일로 변환하기

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. 이 코드를 실행하기 위해 F5 키를 누르면 창이 표시됩니다. 변환하려는 워크북이 포함된 폴더를 선택하세요. 스크린샷 참조:

4. 확인을 클릭하면 또 다른 창이 나타납니다. 새로 생성된 PDF 파일을 저장할 폴더 경로를 선택하세요. 스크린샷 참조:

5. 확인을 클릭하면 변환이 완료된 후 지정된 폴더로 이동하여 변환 결과를 확인할 수 있습니다. 스크린샷 참조:

강력한 기능을 사용하여 여러 워크북을 PDF 파일로 변환하기

Kutools for Excel이 있다면 Format Converter 유틸리티를 사용하여 여러 워크북을 한 번에 PDF 파일로 빠르게 변환할 수 있습니다.

1. Kutools Plus > 통합 문서 > 일괄 변환을 클릭하세요. 스크린샷 참조:

2. 변환하려는 워크북을 닫아야 한다는 알림 상자가 나타납니다.

3. 확인을 클릭한 다음 FileFormat Converter 대화 상자에서 다음 옵션을 지정하세요:

• 변환 유형 드롭다운 목록에서 Excel 워크북을 PDF로 선택하세요;
• 추가 버튼을 클릭하여 변환하려는 Excel 파일을 선택하세요. 필요에 따라 컴퓨터나 OneDrive에서 워크북을 선택할 수 있습니다.

4변환하려는 워크북을 추가한 후에도 여전히 파일 형식 변환기 대화 상자에서 버튼을 클릭하여 변환된 파일을 출력할 폴더 경로를 선택하고, 대화 상자의 하단에서 필요한 작업을 지정하세요. 스크린샷 참조:

5. 그런 다음 확인을 클릭하여 변환을 시작합니다. 지정된 모든 Excel 파일이 PDF로 변환되면 지정된 폴더로 이동하여 결과를 확인하세요. 아래 스크린샷 참조:

VBA 코드를 사용하여 워크북에서 여러 워크시트를 개별 PDF 파일로 변환하기

경우에 따라 워크북의 각 워크시트를 개별 PDF 파일로 변환하고 싶을 수 있습니다. 워크북에 많은 시트가 포함된 경우 아래의 VBA 코드를 사용하여 각 워크시트를 동시에 개별 PDF 파일로 저장할 수 있습니다.

1. 변환하려는 워크북을 열고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 워크북에서 여러 워크시트를 개별 PDF 파일로 변환하기

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 이 코드를 실행하기 위해 F5 키를 누르면 창이 나타납니다. 변환된 PDF 파일을 저장할 폴더 경로를 선택하세요. 스크린샷 참조:

4. 확인 버튼을 클릭하면 현재 워크북의 모든 워크시트가 개별 PDF 파일로 변환됩니다:

손쉬운 기능을 사용하여 워크북에서 여러 워크시트를 개별 PDF 파일로 변환하기

Kutools for Excel은 또한 Split Workbook이라는 유용한 기능을 지원합니다. 이 기능을 사용하면 워크북 내의 여러 워크시트를 개별 Excel 파일, Txt 파일, CSV 파일 및 PDF 파일로 저장할 수 있습니다.

1. 각 시트를 개별 PDF 파일로 저장하려는 워크북을 열고 Kutool Plus > 통합 문서 > 워크북 분리 를 클릭하세요. 스크린샷 참조:

2. 워크북 분리 대화 상자에서 저장하려는 시트를 선택하고 저장 형식 드롭다운 목록에서 PDF (*.pdf) 를 선택한 다음 분리 버튼을 클릭하고 폴더 선택 창에서 변환된 파일을 저장할 폴더를 지정하세요. 스크린샷 참조:

3. 그리고 나서 현재 워크북의 선택된 모든 워크시트가 개별적으로 PDF 파일로 저장됩니다. 스크린샷 참조:

관련 기사 더 보기: