Read And Write PDF Forms From Excel VBA. My Engineering World. This post is based on a blog reader request. Some days ago Mac commented in an old post about a problem he had with a PDF form. He actually wanted to fill the fields of a PDF form using data from an XML file. Vba Import Html File Into Excel' title='Vba Import Html File Into Excel' />This is my current code. But instead of this I want the user to be able to browse to their C driveto find the Excel file to import into the table. Import. To tell you the truth, I had never worked with PDF forms up to that time, so it was an excellent opportunity to learn something new. So, although this post doesnt answer Macs request directly, it provides some ideas to anyone who wants to exchange data with PDF forms using Excel and Adobe Professional. Moreover, if you have data in an XML file, you can import the data in Excel and then run the macros provided here. For demonstration purposes, I have created a sample conference PDF form Test Form. I want to import MutualFundsPortfolioValues to Excel. I dont know how to import data from a web site which I need to do is import web data to Excel within 2. Below you will find VBA code for writing and reading data from Test Form. The Write. PDFForms macro uses the data in sheet Write to fill the Test Form, which is located in the same folder with the sample workbook. The data from each row is used to create a new PDF file, which is saved in the Forms subfolder. The First Name and Last Name column in each row are combined to create the name of the PDF file. On the other hand, the Read. PDFForms macro loops through all the files in the specified folder Forms. W.jpg' alt='Vba Import Html File Into Excel' title='Vba Import Html File Into Excel' />If a PDF file is found, the macro opens it, reads specific fields from the file and writes the values in the sheet Read. The code of both macros can be easily adjusted to work with any PDF form, as long as the field names of the PDF form are known. Here is the VBA code for Write. PDFForms macro. The code for Read. PDFForms macro follows. Option Explicit. Sub Read. PDFForms. . This macro loops through all the files of the specified folder Forms. If the file. is PDF PDF form here the macro opens the file, reads specific fields the file. Read. The code uses late binding, so no reference to external library is required. However, the code works ONLY with Adobe Professional, so dont try to use it with. Adobe Reader because you will get an Active. Vba Import Html File Into Excel' title='Vba Import Html File Into Excel' />X component cant create object error. Written by    Christos Samaras. Date          1. Declaring the necessary variables. Dim str. Forms. Folder          As String. Dim str. Field. Names1 To 7   As String. Dim obj. FSO                  As Object. Dim obj. Source. Folder         As Object. Dim obj. File. Item             As Object. Dim j                       As Integer. Dim Last. Row                 As Long. Dim obj. Acro. App              As Object. Dim obj. Acro. AVDoc            As Object. Dim obj. Acro. PDDoc            As Object. Dim obj. JSO                  As Object. Dim str. PDFOut. Path           As String. Disable screen flickering. Application. Screen. Updating False. Specify the folder that contains the PDF forms. Full path example note the at the end. PDFPath C UsersChristosDesktopForms. Using workbook path. Forms. Folder This. Workbook. Path Forms. Set the required field names in the PDF form. Field. Names1 First Name. Field. Names2 Last Name. Field. Names3 City. Field. Names4 Country. Field. Names5 E mail. Field. Names6 Type Of Registration. Field. Names7 Previous Attendee. On Error Resume Next. Create the File System object. Set obj. FSO Create. ObjectScripting. File. System. Object. Check if the object was created. If Err. Number lt 0 Then. Msg. Box Could not create the File System object, vb. Critical, Object error. Release the object and exit. Set obj. FSO Nothing. Exit Sub. On Error Go. To 0. Get information about the Forms folder. Set obj. Source. Folder obj. FSO. Get. Folderstr. Forms. Folder. Loop through all the files found in the folder Forms. For Each obj. File. Item In obj. Source. Folder. Files. Check if the file is pdf. If LCaseRightobj. File. Item. Path, 3 pdf Then. Find the last row of data in sheet Read. With sh. Read. Activate. Last. Row. Cells. Rows. Count, B. Endxl. Up. Row. End With. On Error Resume Next. Initialize Acrobat by creating the App object. Set obj. Acro. App Create. ObjectAcro. Exch. App. Check if the object was created. If Err. Number lt 0 Then. Msg. Box Could not create the App object, vb. Critical, Object error. Release the objects and exit. Set obj. Acro. App Nothing. Set obj. File. Item Nothing. Set obj. Source. Folder Nothing. Set obj. FSO Nothing. Exit Sub. End If. Create the AVDoc object. Set obj. Acro. AVDoc Create. ObjectAcro. Exch. AVDoc. Check if the object was created. If Err. Number lt 0 Then. Msg. Box Could not create the AVDoc object, vb. Critical, Object error. Release the objects and exit. Set obj. Acro. AVDoc Nothing. Set obj. Acro. App Nothing. Set obj. File. Item Nothing. Set obj. Source. Folder Nothing. Set obj. FSO Nothing. Exit Sub. End If. On Error Go. To 0. Open the PDF file. If obj. Acro. AVDoc. Openobj. File. Item. Path, True Then. Set the PDDoc object. Set obj. Acro. PDDoc obj. Acro. AVDoc. Get. PDDoc. Set the JS Object Java Script Object. Set obj. JSO obj. Acro. PDDoc. Get. JSObject. Create a counter in sheet Read counts each PDF file. Read. CellsLast. Row 1, 1. Value Last. Row 2. On Error Resume Next. Read the form fields. For j 1 To 6. Read. CellsLast. Row 1, j 1. Value obj. JSO. Get. Fieldstr. Field. Namesj. Value. If Err. Number lt 0 Then. Close the form without saving the changes. Acro. AVDoc. Close True. Close the Acrobat application. Acro. App. Exit. Inform the user about the error. Msg. Box The field str. Field. Namesj could not be found, vb. Critical, Field error. Release the objects and exit. Set obj. JSO Nothing. Set obj. Acro. PDDoc Nothing. Set obj. Acro. AVDoc Nothing. Set obj. Acro. App Nothing. Set obj. File. Item Nothing. Set obj. Source. Folder Nothing. Set obj. FSO Nothing. Exit Sub. End If. Next j. Read the checkbox field. If obj. JSO. Get. Fieldstr. Field. Names7. Value Yes Then. Read. CellsLast. Row 1, j 1. Value True. Else. Read. CellsLast. Row 1, j 1. Value False. End If. On Error Go. To 0. Close the PDF file without saving the changes. How To Get More Money On Sims Freeplay After Update To Windows'>How To Get More Money On Sims Freeplay After Update To Windows. Diamondbacks Baseball Game Today there. Acro. AVDoc. Close True. Close the Acrobat application. Acro. App. Exit. Release the objects. Set obj. JSO Nothing. Set obj. Acro. PDDoc Nothing. Set obj. Acro. AVDoc Nothing. Set obj. Acro. App Nothing. Else. Msg. Box Could not open the file, vb. Critical, File error. Close the Acrobat application. Acro. App. Exit. Release the objects abd exit. Set obj. Acro. AVDoc Nothing. Set obj. Acro. App Nothing. Set obj. File. Item Nothing. Set obj. Source. Folder Nothing. Set obj. FSO Nothing. End If. Renew the last row value. Last. Row Last. Row 1. Next obj. File. Item. Release the objects. Set obj. File. Item Nothing. Set obj. Source. Folder Nothing. Set obj. FSO Nothing. Adjust the columns width. Read. ColumnsA H. Vista Market El Paso Tx Hours. Auto. Fit. Enable the screen. Application. Screen. Updating True. Inform the user that the data acquisition finished. Msg. Box All data from the forms were retrieved successfully, vb. Information, Finished. End Sub. How to find the field names of a PDF form Open the PDF form using Adobe Professional and follow the next steps Press the Tools button to show the Tools panel. Select the Forms Tab. Press the Edit button. Instead of these three steps, you can just press CTRL SHIFT 7. Load XML into Excel through VBATHE HARD CODED WAY IS THIS Starting from this lt result. XML you will always have lt result lt entry lt Element VALUElt Element lt Element. VALUElt Element. Open up VBA editor in Power. Point, Excel. Word and add references to Microsoft XML, v. Office 2. 00. 0. Source http vba. Employee. XMLlt UTF 8 standaloneyes. Emp. Details. lt Employee. Name ABClt Name. Dept IT Softwarelt Dept. Location New Delhilt Location. Employee. lt Employee. Name XYZlt Name. Dept IT Softwarelt Dept. Location Chennailt Location. Employee. lt Employee. Name IJKlt Name. Dept HR Operationslt Dept. Location Bangalorelt Location. Employee. lt Emp. Details. CODE TO READ ABOVE XMLSub XMLfrom. PPTExample. Dim XDoc As MSXML2. DOMDocument. Dim x. Emp. Details As MSXML2. IXMLDOMNode. Dim x. Employee As MSXML2. IXMLDOMNode. Dim x. Child As MSXML2. IXMLDOMNode. Set XDoc New MSXML2. DOMDocument. XDoc. False. XDoc. validate. On. Parse False. XDoc. Load C Emp. Set x. Emp. Details XDoc. Element. Set x. Employee x. Emp. Details. first. Child. For Each x. Employee In x. Emp. Details. child. Nodes. For Each x. Child In x. Employee. child. Nodes. Msg. Box x. Child. Name x. Child. Text. In your case, of course, you need to adapt your routine result Emp. Details in the code providedentry Employee in the code provided plus any other necessary adjustment. In this way you can have as much as many entry and entry child elements you want. In fact, looping through all the elements inside your entry you will get your COLUMN, then every new entry is a new ROW. Unfortunately, I dont have excel on the MAC so I just put the logic, you should check the sintax your own. EXCEL table on the worksheet you want. Dim col 1 Dim row1. For Each x. Employee In x. Emp. Details. child. Nodes. For Each x. Child In x. Employee. Nodes. WorksheetsNAMEOFTHESHEET. Cellscol, row. Value x. Child. Text. Msg. Box x. Child. base. Name x. Child. Text. Next x. Child. THE CORRET WAY SHOULD BE THIS Load. Option xl. Xml. Load. Import. To. List You are getting the XML from a URL call, but I strongly suggest to try to work with an XML file on disk at the beginning, and check if its correctly valid. So what you should do is get a sample XML from this Web. Service then save it on disk. An try load it in the following way Sub Import. XMLto. List. Dim str. Target. File As String. Dim wb as Workbook. Application. Screenupdating False. Application. Display. Alerts False. str. Target. File C example. Set wb Workbooks. Open. XMLFilename str. Target. File, Load. Option xl. Xml. Load. Import. To. List. Application. Display. Alerts True. Sheets1. Used. Range. Copy This. Workbook. SheetsSheet. RangeA1. wb. Close False. Application. Screenupdating True.