从 Excel 数据中填写可填写的 PDF [关闭]

Question

我有一个包含客户信息（姓名、地址、帐号等）的 Excel 表，还有一个可填写的 PDF，我需要为每个客户完成并保存。如何将 Excel 中的数据映射到可填写 PDF 中的字段？对其进行一些研究，看起来使用 VBA 可能是一种选择，但我并不真正精通它。我确实将可填写的 PDF 导出为 XML，然后将其添加为 Excel 中的源以尝试映射数据，但它没有任何要映射的字段。

Answer 1

这里有一个link 可能会有所帮助。该网站上的一些视频和示例文件也可以提供帮助。

该网站的高级步骤如下：

1. 准备要导出的 Excel 结构。
2. 提取 PDF 表单的 XML 结构。您可以使用Adobe Acrobat Pro（无需获得许可的 Acrobat Pro 版本即可完成，但至少需要安装 Acrobat PRO 试用版，即使您从未购买许可证。），FoxitReader，@987654324 @等
3. 将 XML 文件映射到 Excel 工作表。
4. 使用 XML 文件填写 PDF 表单。

Answer 2

这是我如何做到这一点的一个例子，如果它对你有用，我并不肯定。需要注意的几点：

我使用 Foxitpdf 并想打印到 pdf 以从模板创建新的 pdf。

Sub CreateDrawings()

Dim phApp As PhantomPDF.Application
Set phApp = CreateObject("PhantomPDF.Application")
Dim phCreator As PhantomPDF.Creator
Set phCreator = phApp.Creator

Dim PDFTemplateFile, NewPDFName, SavePDFFldr, Desc As String
Dim CustRow, LastRow As Long

SavePDFFldr = Sheet2.Range("D47").Value           ' Or set this to an exact directory

CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF"

LastRow = Sheet2.Range("A999").End(xlUp).Row
PDFTemplateFile1 = Sheet4.Range("E3").Value  'or set this to the exact pdf file directory.

Dim phFormDoc As PhantomPDF.Document
Set phFormDoc = phApp.OpenDocument(PDFTemplateFile1, "", True, True)
    
    D1 = .Range("M" & CustRow).Value & "''"
    D2 = .Range("AD" & CustRow).Value               
    D3 = .Range("AK" & CustRow).Value & " lbs"      
    D4 = .Range("D" & CustRow).Value              
    D5 = .Range("Z" & CustRow).Value & "''"           
    D6 = .Range("AC" & CustRow).Value & "''"        
    D7 = .Range("AA" & CustRow).Value & "''"      
    D8 = .Range("V" & CustRow).Value & "''"        

' D1-D8 are set prior to setting pdf fields to the values to make the code cleaner to look at
    
    Call phFormDoc.SetFieldValue("Size", CStr(D1))
    Call phFormDoc.SetFieldValue("Material", CStr(D2))
    Call phFormDoc.SetFieldValue("Weight", CStr(D3))
    Call phFormDoc.SetFieldValue("Description", CStr(D4))
    Call phFormDoc.SetFieldValue("Inlet", CStr(D5))
    Call phFormDoc.SetFieldValue("Length", CStr(D6))
    Call phFormDoc.SetFieldValue("Outlet", CStr(D7))
    Call phFormDoc.SetFieldValue("MajorDiameter", CStr(D8))

    Description = D4                                    ' whatever dimension is the description of the element
    
Call phFormDoc.Export(SavePDFFldr & "\" & Description & ".pdf")
    
Call phApp.CloseDocument(phFormDoc, False)

Next CustRow

Call phApp.Exit

End With

我不确定您在 pdf 应用程序中使用什么，但使用 Foxit 并不太难。

我省略了大部分循环和 If 语句，因为它们只会添加不相关的信息。

结束子