Thnaks yaar, but i am new in Macro world so dont know even ABC of it, can u plz send the final file. I will be very thankful to you. its very urgent for me plz
On Mon, Oct 24, 2011 at 8:59 PM, NOORAIN ANSARI <noorain.ans...@gmail.com>wrote: > Dear Pravesh, > > Please try through below code.. > > Sub ImportPDFFileData() > 'Author: Steve Lipsman > 'Purpose: Import PDF File Data Into Excel Worksheet > 'Other Requirement(s): 'Acrobat' Checked in VBA Tools-References > 'Reference Renames Itself 'Adobe Acrobat 9.0 Object Library' After > Reference Is Saved > > 'Declare Variable(s) > Dim appAA As Acrobat.CAcroApp, docPDF As Acrobat.CAcroPDDoc > Dim strFileName As String, intNOP As Integer, arrI As Variant > Dim intC As Integer, intR As Integer, intBeg As Integer, intEnd As Integer > > 'Initialize Variables > Set appAA = CreateObject("AcroExch.App"): Set docPDF = > CreateObject("AcroExch.PDDoc") > > 'Set PDF FileName > strFileName = "Your Full PDF File Pathname Here.pdf" > > 'Read PDF File > docPDF.Open (strFileName) > > 'Extract Number of Pages From PDF File > intNOP = docPDF.GetNumPages > > 'Select First Data Cell > Range("A1").Select > > 'Open PDF File > ActiveWorkbook.FollowHyperlink strFileName, , True > > 'Loop Through All PDF File Pages > For intC = 1 To intNOP > 'Go To Page Number > SendKeys ("+^n" & intC & "{ENTER}") > > 'Select All Data In The PDF File's Active Page > SendKeys ("^a"), True > > 'Right-Click Mouse > SendKeys ("+{F10}"), True > > 'Copy Data As Table > SendKeys ("c"), True > > 'Minimize Adobe Window > SendKeys ("%n"), True > > 'Paste Data In This Workbook's Worksheet > ActiveSheet.Paste > > 'Select Next Paste Cell > Range("A" & Range("A1").SpecialCells(xlLastCell).Row + 2).Select > > 'Maximize Adobe Window > SendKeys ("%x") > Next intC > > 'Close Adobe File and Window > SendKeys ("^w"), True > > 'Empty Object Variables > Set appAA = Nothing: Set docPDF = Nothing > > 'Select First Cell > Range("A1").Select > End Sub > > -- > Thanks & regards, > Noorain Ansari > *http://excelmacroworld.blogspot.com/*<http://excelmacroworld.blogspot.com/> > *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> > On Mon, Oct 24, 2011 at 4:46 PM, Pravesh verma <praveshde...@gmail.com>wrote: > >> >> >> Hi Group, please find 2 files in which below one is a pdf file, and it >> contain some tables, which i have to convert in excel , after googlng i am >> able to convert them in excel but still not fully converted, as all rows of >> pdf file come in one row in excel file as u can see in excel file, and i >> want each row separately , can you please help. in waiting............ >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> > > > > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Thanks & Regards Pravesh -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel