如何計算Excel中Pdf文件的頁數(shù)？

現(xiàn)在，如果特定文件夾中有多個Pdf文件，則要在工作表中顯示所有這些文件名，并獲取每個文件的頁碼。 您如何在Excel中快速輕松地處理此工作？

使用VBA代碼計算工作表中文件夾中的Pdf文件的頁碼

使用VBA代碼計算工作表中文件夾中的Pdf文件的頁碼

以下VBA代碼可能可以幫助您在工作表中顯示所有Pdf文件名及其每個頁碼，請按以下步驟操作：

1。 打開一個工作表，您要在其中獲取Pdf文件和頁碼。

2。 按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

3。 點擊 插頁 > 模塊，然后將以下宏粘貼到 模塊 窗口。

VBA代碼：在工作表中列出所有Pdf文件名和頁碼：

Sub Test()Dim I As LongDim xRg As RangeDim xStr As StringDim xFd As FileDialogDim xFdItem As VariantDim xFileName As StringDim xFileNum As LongDim RegExp As ObjectSet xFd = Application.FileDialog(msoFileDialogFolderPicker)If xFd.Show = -1 ThenxFdItem = xFd.SelectedItems(1) & Application.PathSeparatorxFileName = Dir(xFdItem & "*.pdf", vbDirectory)Set xRg = Range("A1")Range("A:B").ClearContentsRange("A1:B1").Font.Bold = TruexRg = "File Name"xRg.Offset(0, 1) = "Pages"I = 2xStr = ""Do While xFileName <> ""Cells(I, 1) = xFileNameSet RegExp = CreateObject("VBscript.RegExp")RegExp.Global = TrueRegExp.Pattern = "/Types*/Page[^s]"xFileNum = FreeFileOpen (xFdItem & xFileName) For Binary As #xFileNumxStr = Space(LOF(xFileNum))Get #xFileNum, , xStrClose #xFileNumCells(I, 2) = RegExp.Execute(xStr).CountI = I + 1xFileName = DirLoopColumns("A:B").AutoFitEnd IfEnd SubCopy

4。 粘貼代碼后，然后按 F5 運行此代碼的關鍵，以及 瀏覽 彈出窗口，請選擇包含要列出的Pdf文件的文件夾并計算頁碼，請參見屏幕截圖：

5。 然后，單擊 OK 按鈕，所有Pdf文件名和頁碼都列在當前工作表中，請參見屏幕截圖：

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel