Hi,

  Here is an example that shows you how to create a xml file from excel data (xls) using macros.

Below is the excel sheet that has the data:

Here is the code that you will need to createthe xml file:

Private Sub CommandButton1_Click()
'code written on 24/03/2009 by Pavandeep Puddupakkam
    Dim FileNum As Integer
    Dim LastRow As Long, LastCol As Integer, r As Long, r1 As Long, r2 As Long
   
   
    LastRow = Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row
    LastCol = Sheet1.UsedRange.Columns(Sheet1.UsedRange.Columns.Count).Column
   
    FileNum = FreeFile ' next file number
    Open "C:\XML\houses.xml" For Output As #FileNum ' creates the file if it doesn't exist
       
Print #FileNum, Cells(1, 1); ' <?xml version="1.0" encoding="UTF-8"?>
Print #FileNum, "<HOUSES>"
For r = 3 To 327
        Print #FileNum, "<HOUSE>"
        Print #FileNum, "<HOUSE_ID>"; Cells(r, 2); "</HOUSE_ID>"
        Print #FileNum, "<POST_TYPE>Classified Feed</POST_TYPE>"
        Print #FileNum, "<DATE_POSTED></DATE_POSTED>"
        Print #FileNum, "<DATE_EXPIRE></DATE_EXPIRE>"
        Print #FileNum, "<COMPANY_NAME>Unltd Wiki</COMPANY_NAME>"
        Print #FileNum, "<COMP_TYPE>Third Party Recruiter</COMP_TYPE>"
        Print #FileNum, "<HOUSE TITLE>"; Cells(r, 3); "</HOUSE TITLE>"
        Print #FileNum, "<HOUSE CATEGORIES>"
        Print #FileNum, "<HOUSE CATEGORY>"; Cells(r, 4); "</HOUSE CATEGORY>"
        Print #FileNum, "</HOUSE CATEGORIES>"
        Print #FileNum, "<HOUSE_CODE>"; Cells(r, 2); "</HOUSE_CODE>"
        Print #FileNum, "<CITY>XXXXX</CITY>"
        Print #FileNum, "<STATE>XXXX</STATE>"
        Print #FileNum, "<ZIP>*****</ZIP>"
        Print #FileNum, "<COUNTRY>*******</COUNTRY>"
        Print #FileNum, "<HOUSE DESCRIPTION>"; Cells(r, 5); "</HOUSE DESCRIPTION>"
        Print #FileNum, "<HOUSE REQUIREMENTS></HOUSE REQUIREMENTS>"
        Print #FileNum, "<APPLY_DATA>"
        Print #FileNum, "<FIRST_NAME>Pavan</FIRST_NAME>"
        Print #FileNum, "<LAST_NAME>Puddupakkam</LAST_NAME>"
        Print #FileNum, " <PHONE>(999999999</PHONE>"
        Print #FileNum, " <FAX>9999999999</FAX>"
        Print #FileNum, " <HOUSE ADDRESS>5</HOUSE ADDRESS>"
        Print #FileNum, "  <HOUSE ADDRESS2>XXXXXXXXXXXX</HOUSE ADDRESS2>"
        Print #FileNum, "  <CITY>XXXXX</CITY>"
        Print #FileNum, "  <STATE>XXXXXXX</STATE>"
        Print #FileNum, "  <COUNTRY>XXXXXXXX</COUNTRY>"
        Print #FileNum, "  <APPLY_URL>http://unltedwiki.com/apply.aspx</APPLY_URL>"
        Print #FileNum, "  <APPLY_EMAIL></APPLY_EMAIL>"
        Print #FileNum, "</APPLY_DATA>"
        Print #FileNum, " <HOUSEtypes>"
        Print #FileNum, "   <HOUSEtype>House</HOUSEtype>"
        Print #FileNum, "  </HOUSEtypes>"
        Print #FileNum, "<customfields>"
        Print #FileNum, "  <customfield>"
        Print #FileNum, "    <fieldname>residency</fieldname>"
        Print #FileNum, "    <fieldvalues>"
        Print #FileNum, "      <fieldvalue>HOUSE/UNIT</fieldvalue>"
        Print #FileNum, "    </fieldvalues>"
        Print #FileNum, "  </customfield>"
        Print #FileNum, "</customfields>"
        Print #FileNum, "</HOUSE>"
        Next r
        Print #FileNum, "</HOUSES>"
        Close #FileNum ' close the file
End Sub

Submitted by: Pavandeep Puddupakkam