'This procedure get the PDF data into excel by following way '1.Open PDF file '2.Looping through pages '3.get the each PDF page data into individual _ Sub Imp_Into_XL(PDF_File As String, Each_Sheet As Boolean) Set Dlg_Fol = Application.FileDialog(msoFileDialogFolderPicker)

Set Dlg_File = Application.FileDialog(msoFileDialogFilePicker) MsgBox 'Folder '' & Txt_Fol & '' not exist please select valid folder'Ĭall Imp_Into_Txt(PDF_Path, Txt_Fol, chk_txt.Value) If OS_FSO.folderexists(Txt_Fol) = False Then 'check the folder for text file if import PDF data into text file If OS_FSO.fileexists(PDF_Path) = False Then Set OS_FSO = CreateObject('Scripting.filesystemobject')ĭim PDF_Path As String, Txt_Fol As String MsgBox 'Please select one of the import mode' If opt_xl.Value = False And opt_txt.Value = False Then I created and used in Adobe Acrobat professional version 7.0 You need Adobe Acrobat installed to use this code. You can add some if conditions depends upon your need. The attached file get all data from PDF file. So i write code to get data from PDf file into array and do some if conditions to get exact data that i want and put them into excel. of more than 200 employess whose data are avaialble in PDF file I assigned to get the phone numbers and charges and etc. It will get the data from PDF file into Excel Sheet or Text file Get the data from PDF file into Excel sheet(s) or text file(s)

Excel import table from pdf