Set AC_PGTxt = AC_PG.CreateWordHilite(AC_Hi) Set WS_PDF = Worksheets.Add(, Worksheets(Sheets.Count)) 'add sheet only one time if Data retrive in one sheet
Import pdf info into excel pdf#
MsgBox "Pages Cannot determine in PDF file '" & PDF_File & "'" Sheets Or single sheet As defined In Each_Sheet Parameterĭim AC_PD As Acrobat.AcroPDDoc 'access pdf fileĭim AC_Hi As Acrobat.AcroHiliteList 'set selection word countĭim AC_PG As Acrobat.AcroPDPage 'get the particular pageĭim AC_PGTxt As Acrobat.AcroPDTextSelect 'get the text of selection areaĭim Li_Row As Long 'Maximum rows limit for one columnĭim Yes_Fir As Boolean 'to identify beginning of pageĭim Ct_Page As Long 'count pages in pdf fileĭim i As Long, j As Long, k As Long 'looping variablesĭim Hld_Txt As Variant 'get PDF total text into array '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.
Import pdf info into excel code#
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)
0 kommentar(er)
