以精确格式将pdf导入excel

Question

我有这段代码，但是我想以精确的格式复制和粘贴PDF文件以使Excel不在单行或单列中表现出色，我的意思是说如果我有一个包含两列和16行的PDF格式的表，我想将其精确地粘贴使用vba格式化为excel。 下面的代码无法正常工作，它正在选择但没有将数据粘贴到excel，也无法将其以PDF的确切格式粘贴到excel。

请帮助我

请使用我要粘贴的精确格式的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