hutama.blogg.se

Thanks for another simply useless post Roy. (The data is now text in Excel so I can search, strip, or whatever, so I loop through cells(i,1) looking for what I need etc) 'This gets the required 'PDF Dump' data and puts it in the appropriate worksheet 'This pastes the data copied from the PDF into Worksheet(3). Name adobeFile As folderLoc & "Processed\" & fNameArray(i) 'This moves the file from the current folder to the "Processed" folder after copying the data (remember, only the first page of the PDF gets copied) Worksheets.Add(AFTER:=Worksheets("whatever")).Name = "PDF Dump"

StartAdobe = Shell("" & adobeApp & " " & adobeFile & "", 1)Īpplication.Wait (Now + TimeValue("00:00:05")) Set ws4 = Worksheets(tagMonth & " " & Right(fileYear, 2)) The basic coded is as follows: (private stuff has been stripped out)ĪdobeApp = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"įolderLoc = "M:\Source Files\folder1\Reports\"

As such, it is only good for a handful of files at a time. I copy many files this way but after 30-50 files are 'processed' the clipboard gets bloated and the Reader crashes the code and the only way to free it up is to reboot. Each row of data is pasted as a single cell. Re: Extract text from pdf file to excel using vba codeĮxcel can open a PDF in Acrobat Reader then copy and paste the FIRST PAGE ONLY into Excel.