title: Open PDF file in Excel with VBA
body: <p>I am having trouble opening my pdf file in excel.  I wrote a macro to open a pdf document, copy everything and paste it into an excel workbook but I cant get the pdf file to open.  I keep getting the 1004 runtime error.  Any ideas of help would be appreciated.  Here is what I have tried so far:</p>
  
  <pre><code>Public Sub PDFCopy()
  
  Dim o As Variant
  Dim App As AcroPDDoc
  Worksheets("Sheet3").Range("A2").Activate
  
  'App.Open ("C:\NetworkDiagrams\100-Viking.pdf")
  o = Shell("calc.exe", vbNormalNoFocus)
  ' ActiveWorkbook.FollowHyperlink ("C:\NetworkDiagram\100-Viking.pdf")
  
  Application.Wait Now + TimeValue("00:00:05")
  SendKeys ("^a")
  SendKeys ("^c")
  SendKeys "%{F4}"
  
  Worksheets("Sheet3").Range("A2").Activate
  
  SendKeys ("^v")
  
  
  
  End Sub
  </code></pre>
  
  <p>All three methods have given me the same runtime error.  I am out of ideas.</p>