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)

Open pdf table in excel