If objAcroAVDoc.Open(objFileItem.Path, "") = True Then 'Find the last row of data in sheet Read. If LCase(Right(objFileItem.Path, 3)) = "pdf" Then 'Loop through all the files found in the folder Forms.įor Each objFileItem In objSourceFolder.Files Set objSourceFolder = objFSO.GetFolder(strFormsFolder) MsgBox "Could not create the File System object!", vbCritical, "Object error" Set objFSO = CreateObject("Scripting.FileSystemObject") StrFieldNames(6) = "Type Of Registration" StrFormsFolder = ThisWorkbook.Path & "Forms" 'strPDFPath = "C:UsersChristosDesktopForms" 'Full path example (note the at the end):
Excel for mac simply says opps pdf#
'Specify the folder that contains the PDF forms. 'and writes the values in the sheet Read. 'is PDF (PDF form here) the macro opens the file, reads specific fields the file 'This macro loops through all the files of the specified folder (Forms). MsgBox "All forms were created successfully!", vbInformation, "Finished" MsgBox "Could not open the file!", vbCritical, "File error" StrPDFOutPath = ThisWorkbook.Path & "Forms" & i - 3 & ") " &. StrPDFOutPath = ThisWorkbook.Path & "Forms�" & i - 3 & ") " &. 'Create the output path, which will be like C:UsersChristosDesktopForms�1) First Name Last Name.pdf. ObjJSO.GetField(strFieldNames(11)).Value = "Yes" If shWrite.Cells(i, j + 1).Value = "True" Then MsgBox "The field """ & strFieldNames(j) & """ could not be found!", vbCritical, "Field error" 'Close the form without saving the changes. ObjJSO.GetField(strFieldNames(j)).Value = CStr(shWrite.Cells(i, j + 1).Value) If objAcroAVDoc.Open(strPDFPath, "") = True Then MsgBox "Could not create the AVDoc object!", vbCritical, "Object error" Set objAcroAVDoc = CreateObject("AcroExch.AVDoc") MsgBox "Could not create the App object!", vbCritical, "Object error" Set objAcroApp = CreateObject("AcroExch.App")
'Initialize Acrobat by creating the App object. 'Loop through all rows of sheet Write and use the data to fill the PDF form. 'Find the last row of data in sheet Write. StrFieldNames(10) = "Type Of Registration" 'Set the required field names in the PDF form. StrPDFPath = ThisWorkbook.Path & "" & "Test Form.pdf" 'strPDFPath = "C:UsersChristosDesktopTest Form.pdf" 'Specify the path of the sample PDF form. 'Adobe Reader because you will get an "ActiveX component can't create object" error.
Excel for mac simply says opps code#
'However, the code works ONLY with Adobe Professional, so don't try to use it with 'The code uses late binding, so no reference to external library is required. 'each row is used to create a new PDF file, which is saved in the Forms subfolder. 'Test Form, which is located in the same folder with this workbook. 'This macro uses the data in sheet Write in order to fill a sample PDF form named The code of both macros can be easily adjusted to work with any PDF form, as long as the PDF form’s field names are known. If a PDF file is found, the macro opens it, reads specific fields from the file, and writes the values in the “Read” sheet. On the other hand, the ReadPDFForms macro loops through all the files in the specified folder (Forms). The First Name and Last Name columns in each row are combined to create the PDF file’s name. The data from each row is used to create a new PDF file, saved in the Forms subfolder. The WritePDFForms macro uses the sheet Write to fill the Test Form, which is located in the same folder as the sample workbook. Below you will find VBA code for writing and reading data from Test Form. Moreover, if you have data in an XML file, you can import the data in Excel and then run the macros provided here.įor demonstration purposes, I have created a sample conference PDF form (Test Form). Although this post doesn’t answer Mac’s request directly, it provides some ideas to anyone who wants to exchange data with PDF forms using Excel and Adobe Professional. I had never worked with PDF forms until that time, so it was an excellent opportunity to learn something new. He actually wanted to fill the fields of a PDF form using data from an XML file. Mac commented in an old post about a problem he had with a PDF form. This post is based on a blog reader request.
0 kommentar(er)
