<cfoutput>
<cffile action="read" file="#ExpandPath('data-import.xml')#" variable="xmlImport" />

<cfset xmlImport = XmlParse(xmlImport) />

<cfset aRowNodes = xmlImport.Workbook.Worksheet.Table.XmlChildren />

<!--- Set up the Column names in the Workbook --->
<cfset lstColumns = 'CATEGORY,SKU,TITLE,DESCRIPTION,PRICE' />

<cfset qryExcel = QueryNew(lstColumns) />

<cfloop from="1" to="#ArrayLen(aRowNodes)#" index="index">
  <cfif aRowNodes[index].XmlName eq "Row">
    <cfif ArrayLen(aRowNodes[index].XmlChildren) eq ListLen(lstColumns)>
      <cfset QueryAddRow(qryExcel) />

      <cfloop from="1" to="#ListLen(lstColumns)#" index="colindex">
        <cfset colname = ListGetAt(lstColumns, colindex) />
        <cfif ArrayLen(aRowNodes[index].XmlChildren) gte colindex And ArrayLen(aRowNodes[index].XmlChildren[colindex].XmlChildren) neq  0 >
          <cftry>
            <cfset QuerySetCell(qryExcel, colname, aRowNodes[index].XmlChildren[colindex].XmlChildren[ 1 ].XmlText) />
            <cfcatch>
              <cfdump var="#aRowNodes[index]#" />
              <cfdump var="#cfcatch#" />
              <cfset QuerySetCell(qryExcel, colname, "") />
            </cfcatch>
          </cftry>
        <cfelse>
          <!--- blank node --->
          <cfset QuerySetCell(qryExcel, colname, "") />
        </cfif>
      </cfloop>    
    </cfif>
  </cfif>
  
</cfloop>