以精确格式导出pdf为excel

Question

我有这段代码，但是我想以精确的格式复制和粘贴PDF文件，而不是单行或列，我的意思是说如果我有一个包含两列和一行的PDF格式的表格我要粘贴它以精确的格式使用vba优秀。下面的代码工作不正常它选择但不粘贴数据也很好我也无法以精确的格式将其粘贴为PDF格式。

请帮助我

请使用此代码参考PDF文件，我想以精确的格式粘贴到excel。

Sub Shell_Copy_Paste()

   Dim o As Variant
   Dim wkSheet As Worksheet

   Set wkSheet = ActiveSheet

   o = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe C:\Users\saurabh.ad.sharma\Desktop\red.pdf", vbNormalFocus)

   Application.Wait (Now + TimeSerial(0, 0, 2)) 'Wait for Acrobat to load

   SendKeys "^a"   'Select All
   SendKeys "^c"   'Copy
   SendKeys "%{F4}"    'Close shell application

   wkSheet.Range("B5").Select
   SendKeys "^v"   'Paste

End Sub