title: Read PDF (Acrobat Reader DC Only) to Excel with VBA
body: <p>Tryinf to read PDF data into excel using VBA Code. I only have access to Adobe Reader DC on the work machine.</p>
  
  <p>I have tried the following code</p>
  
  <pre><code>Sub ReadAdobeFields()
  
   Dim AcrobatApplication As Acrobat.CAcroApp
   Dim ArcrobatDocument As Acrobat.CAcroAVDoc
   Dim fcount As Long
  
   Dim sFields As String
  
   On Error Resume Next
  
   Set AcrobatApplication = CreateObject("AcroExch.App")
   Set AcrobatDocument = CreateObject("AcroExch.AVDoc")
  
   If AcrobatDocument.Open("C:\Users\Desktop\Summary.pdf", "") Then
  
        AcrobatApplication.Show
        Set AcroForm = CreateObject("AFormatAut.App")
        Set Fields = AcroForm.Fields
        fcount = Fields.Count
  
        For Each Field In Fields
         row_number = row_number + 1
         sFieldName = Field.Name
  
         Sheet1.Range("B" &amp; row_number) = Field.Name
         Sheet1.Range("C" &amp; row_number) = Field.Value
         Sheet1.Range("D" &amp; row_number) = Field.Style
  
        Next Field
  
        Else
  
          MsgBox "Failure"
  
  
      End If
  
      AcrobatApplication.Exit
      Set Arcobat.Application = Nothing
      Set Acrobat.Document = Nothing
      Set Field = Nothing
      Set Fields = Nothing
      Set AcroForm = Nothing
  
  End Sub
  </code></pre>
  
  <p>Expected outcome would be successfully reading the PDF file data and placing into excel format using VBA coding.</p>