objJSO.importXFAData not writing data to PDF form - excel

Question

The following code will open and save the testing PDF in question, but will not write any of the values in the XML file referenced into the saved form. The PDF was created by Livecycle, hence the XFA reference in the code. For the life of me, I cannot figure out why this command is not executing and not returning an error if it is somehow faulty.
Sub LoopTrial()
Dim strPDFPath As String
Dim MyFile As String
MyPath = "H:\Testing\Forms\"
strPDFPath = "H:\Testing\Test Form.pdf"
myExtension = "1.xml"
MyFile = MyPath & myExtension
'Loop
'Do While MyFile <> ""
Set objAcroApp = CreateObject("AcroExch.App")
Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
If objAcroAVDoc.Open(strPDFPath, "") = True Then
Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
Set objJSO = objAcroPDDoc.GetJSObject
End If
objJSO.importXFAData MyFile
i = i + 1
strPDFOutPath = "H:\Testing\Forms\Form" & i & ".pdf"
objAcroPDDoc.Save 1, strPDFOutPath
objAcroApp.Exit
'Loop
End Sub

Answer 1

For security reasons, the importXFAData method is only allowed in batch and console events. You won't be able to execute it directly via VBA. You'll need to create a trusted function first and load it as an application level JavaScript, then call the trusted function. You'll also need to convert your path that will be a parameter for the JSO from Windows format to one that Acrobat JavaScript will understand... something like...
"C/foo/data.xfa"
for...
"C:\foo\data.xfa"
To create a trusted function, create a JavaScript (.js) file and load it into the Acrobat application JavaScript folder. It will look like this...
trustedImportXFAData = app.trustedFunction( function (pathToXFA)
{
// Additional code may appear above
app.beginPriv(); // Explicitly raise privilege
this.importXFAData(pathToXFA); //"this" being the form document
app.endPriv();
// Additional code may appear below.
})
The from VBA you'll call it the same way.
objJSO.trustedImportXFAData MyFile