Как обновить данные Excel в PDF-файл, используя код VBA в Excel? - PullRequest
Новая
       37

Как обновить данные Excel в PDF-файл, используя код VBA в Excel?

0 голосов
/ 13 июня 2019

Я хочу добавить значение ячейки Excel в существующий PDF, хотя ниже код.кто-нибудь может помочь мне вызвать переменную "UpdateValue" в коде Ex, чтобы значение Excel можно было печатать в формате PDF.

Я пробовал также с формой, но не работает. 

Sub Update_values()
        Dim Path, FileName, FilePath
        Dim avdoc As CAcroAVDoc
        Dim jso As Object
        Dim PDDoc As CAcroPDDoc


        FilePath = "C:\New folder\A.pdf"

        Set Acroapp = CreateObject("AcroExch.App")
        Set PDDoc = CreateObject("AcroExch.PDDoc")
        Set App = CreateObject("Acroexch.App")
        Acroapp.Show
        Set avdoc = CreateObject("AcroExch.AVDoc")
        Set AForm = CreateObject("AFormAut.App") 'from AFormAPI
        UpdateValue = Range("A2").Value

        If avdoc.Open(FilePath, "") Then


         Ex = "  var Box2Width = 50  " & vbLf _
          & "  for (var p = 0; p < this.numPages; p++)   " & vbLf _
          & "   {var aRect = this.getPageBox(""Crop"",p);  " & vbLf _
          & "    var TotWidth = aRect[2] - aRect[0]  " & vbLf _
          & "     {  var bStart=(TotWidth/2)-(Box2Width/2)  " & vbLf _
          & "         var bEnd=((TotWidth/2)+(Box2Width/2))  " & vbLf _
          & "         var fp = this.addField(String(""xftPage""+p+1), ""text"", 0, [180,830,10,600]);   " & vbLf _
          & "         fp.value =  UpdateValue  " & vbLf _
          & "         fp.textSize=7;  fp.readonly = true;  " & vbLf _
          & "         fp.alignment=""center"";  " & vbLf _
          & "     }  " & vbLf _
          & "   }  "

        AForm.Fields.ExecuteThisJavaScript Ex
        End If

        Set avdoc = Nothing
        Set App = Nothing
        Set AForm = Nothing


End Sub
...