【求助】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编辑过]
