Extract column from Pdf to Excel file

charlesdh · #14 06-11-2017, 06:25 PM

Hi,

What you really need to is have the File That was converted from PDF be active and the have a code that will loop thru it to copy the data from it to your destination workbook.
Here is a sample dcode that you can use.
You can add a line of code that will make sure that the workbook that you need the data from is Active. This code only move column "D" "Tag NR". You can modify it for the rest of the required data.

Code:

Sub Test_Process()
'You need to have Original file converted Active to run this code. I only have it set to copy "Tag NR"
Application.ScreenUpdating = False
Dim lrow As Long '' PDF workbook Your Example File
lrow = ThisWorkbook.Sheets("Data").Range("D18").End(xlUp).Row
Dim llrow As Long



   With ActiveWorkbook
        llrow = ActiveSheet.Range("D18").End(xlUp).Row ''Active workbook Original File
        i = 7
        Do While i <> llrow + 1
            ThisWorkbook.Sheets("Data").Range("E" & lrow).Value = ActiveSheet.Range("D" & i).Text
            i = i + 1
            lrow = lrow + 1
        Loop
   End With
   
  Application.ScreenUpdating = True
 
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Extract data based on pattern with respect to specific column	PRA007	Excel Programming	14	12-04-2015 04:32 AM
Macro to highlight repeated words in word file and extract into excel file	aabri	Word VBA	1	06-14-2015 07:20 AM
How do I extract all my email addresses into one file?	JohnFurter	Outlook	3	05-16-2015 04:32 AM
Extract phone number from word file	donlincolnmsof	Word VBA	12	06-19-2012 05:21 PM
Extract Video from .ppsx file	designer	PowerPoint	1	10-14-2011 08:00 AM