title: Copying data from multiple pdf files
body: <p>I have pdf files from which I would like to copy all the data to a column in a spreadsheet.</p>
  
  <p>Here is the code I have. All it does is open the pdf, use control-a, then control-c to copy then activates the workbook, finds an open column and pastes the data with a control-v Sendkey.</p>
  
  <p>I have a range with path names it opens and copies data from all but only pastes the last one.</p>
  
  <pre><code>Sub StartAdobe1()
  
  Dim AdobeApp As String
  Dim AdobeFile As String
  Dim StartAdobe
  Dim fname As Variant
  Dim iRow As Integer
  Dim Filename As String
  
  For Each fname In Range("path")
  
      AdobeApp = "C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"
      StartAdobe = Shell("" &amp; AdobeApp &amp; " " &amp; fname &amp; "", 1)
  
      Application.Wait Now + TimeValue("00:00:01")
      SendKeys "^a", True
      Application.Wait Now + TimeValue("00:00:01")
      SendKeys "^c"
      Application.Wait Now + TimeValue("00:00:01")
      SendKeys ("%{F4}")
      Windows("transfer (Autosaved).xlsm").Activate
      Worksheets("new").Activate
  
      ActiveSheet.Range("A1").Select
      Selection.End(xlToRight).Offset(0, 1).Select
  
      SendKeys "^v"
      Application.Wait Now + TimeValue("00:00:2")
  
  Next fname
  </code></pre>