Есть ли способ получить данные из полей форм PDF, чтобы преуспеть с помощью VBA (Excel для MAC, а не Windows) - PullRequest
Новая
       9

Есть ли способ получить данные из полей форм PDF, чтобы преуспеть с помощью VBA (Excel для MAC, а не Windows)

0 голосов
/ 31 октября 2019

Есть ли код для получения данных из полей формы PDF, чтобы превзойти MAC для определенных ячеек. Приведенный ниже код прекрасно работает в Windows, но не в Excel для MAC и не совместим.

Что-нибудь еще (код и т. Д.) Можно добавить? 

Sub TakeData()
Dim AcroApp As Acrobat.CAcroApp
Dim theForm As Acrobat.CAcroPDDoc
Dim jso As Object
Dim text1, text2 As String
Dim lastRow As Long

Set AcroApp = CreateObject("AcroExch.App")
Set theForm = CreateObject("AcroExch.PDDoc")
theForm.Open (Sheet1.Range("c5").Value)
Set jso = theForm.GetJSObject

Worksheets("Data").Range("A" & lastRow).Value = jso.getField("Client_ID").Value

If jso.getField("Client_ID").Value = "" Or IsNull(jso.getField("Client_ID").Value) = True Then
    MsgBox "Client ID not Found in PDF", vbOKOnly, "Client ID Not Found"
    Exit Sub
End If

Worksheets("Data").Range("B" & lastRow).Value = jso.getField("ClientType").Value
If jso.getField("ClientType").Value = "" Or IsNull(jso.getField("ClientType").Value) = True Then
    MsgBox "Select Client Type in PDF", vbOKOnly, "Client Type Missing"
    Exit Sub
End If
...