Excel을 사용하여 Pdf 파일의 페이지 수를 계산하는 방법은 무엇입니까?

폴더에 여러 PDF 파일이 있고 Excel에서 해당 파일 이름과 페이지 수를 나열해야 하는 경우 간단한 VBA 매크로를 사용하여 이를 쉽게 수행할 수 있습니다. 이 튜토리얼에서는 Excel 워크시트에 PDF 파일 이름과 해당 페이지 번호를 빠르게 추출하고 표시하는 단계를 안내합니다.

VBA를 사용하여 Excel에 PDF 파일 이름과 페이지 번호 표시하기

VBA를 사용하여 Excel에 PDF 파일 이름과 페이지 번호 표시하기

다음 VBA 코드는 워크시트에서 모든 PDF 파일 이름과 해당 페이지 번호를 표시하는 데 도움이 될 수 있습니다. 다음 단계를 따르세요:

1. Pdf 파일과 페이지 번호를 가져오려는 워크시트를 엽니다.

2. "ALT" + "F11" 키를 누르면 "Microsoft Visual Basic for Applications" 창이 열립니다.

3. "삽입" > "모듈"을 클릭하고, "모듈" 창에 다음 매크로를 붙여넣습니다.

VBA 코드: 워크시트에 모든 Pdf 파일 이름과 페이지 번호 나열하기:

Sub Test()
    Dim I As Long
    Dim xRg As Range
    Dim xStr As String
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Dim xFileNum As Long
    Dim RegExp As Object
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
        Set xRg = Range("A1")
        Range("A:B").ClearContents
        Range("A1:B1").Font.Bold = True
        xRg = "File Name"
        xRg.Offset(0, 1) = "Pages"
        I = 2
        xStr = ""
        Do While xFileName <> ""
            Cells(I, 1) = xFileName
            Set RegExp = CreateObject("VBscript.RegExp")
            RegExp.Global = True
            RegExp.Pattern = "/Type\s*/Page[^s]"
            xFileNum = FreeFile
            Open (xFdItem & xFileName) For Binary As #xFileNum
                xStr = Space(LOF(xFileNum))
                Get #xFileNum, , xStr
            Close #xFileNum
            Cells(I, 2) = RegExp.Execute(xStr).Count
            I = I + 1
            xFileName = Dir
        Loop
        Columns("A:B").AutoFit
    End If
End Sub

4. 코드를 붙여넣은 후, "F5" 키를 눌러 코드를 실행하면 "찾아보기" 창이 나타납니다. 페이지 수를 나열하고 계산하려는 Pdf 파일이 포함된 폴더를 선택하세요. 스크린샷 참조:

5. 그런 다음 "확인" 버튼을 클릭하면 모든 Pdf 파일 이름과 페이지 번호가 현재 워크시트에 나열됩니다. 스크린샷 참조: