【求助】VB报错 “NotAllowedError”

Sub saveASexl(mypath As String, destname As String)

Dim acApp As New Acrobat.AcroApp
Dim avdoc As New Acrobat.AcroAVDoc
Dim xpddoc As New Acrobat.AcroPDDoc
Dim jsobj As Object

Set acApp = CreateObject("acroexch.app")

acApp.Show

Set avdoc = CreateObject("acroexch.avdoc")

If avdoc.Open(mypath, vbNull) = True Then

   Set xpddoc = avdoc.GetPDDoc
   Set jsobj = xpddoc.GetJSObject
   
   jsobj.SaveAs "11", "com.adobe.acrobat.xlsx"

End If

End Sub

我要用vb操作pdf另存为excel文件，每次运行到jsobj.SaveAs "11", "com.adobe.acrobat.xlsx"这一步的时候都会出现下边的报错，请大神帮忙看下是什么原因？

[此贴子已经被作者于2022-6-7 08:48编辑过]