I'm having similar problems, and different ones, but this has worked for
me.

First add the XML datamap .XSD
set objMap = workbook.XmlMaps.Add(AbsolutePath &
"\BOBBY.xsd","PowerShift")

then map the cells individually.
strXPath = "/PowerShift/C1A/Customer_number"
Set xp = worksheet.Range("A1:A2").Offset(1,actColumn).XPath
xp.SetValue workbook.XmlMaps(1), strXPath


The problem with with approach is that it separates the column in such
a way that if you change the data you can not export it back to an XML
file. Your get an error when selecting "Verify map for export".
Error stating. "A mapped element's relationship with other elements
cannot be preserved.

How do I fix this problem?


--
roblo
------------------------------------------------------------------------
roblo's Profile: http://www.excelforum.com/member.php...o&userid=22469
View this thread: http://www.excelforum.com/showthread...hreadid=378595