文件A.XML如下：

<?xml version="1.0" encoding="iso-8859-1"?>
<ExportCR Date1="0109" xsi:noNamespaceSchemaLocation="exportCR.xsd" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<CR Date2="0108">
<Response R_ID="12345"><![CDATA[This is a bad  response.]]></Response>
<ID Destination="HH">10001</ID>
<ID Destination="BB">10002</ID>
</CR>
<CR Date2="0107">
<Response R_ID="67890"><![CDATA[This is a good response.]]></Response>
<ID Destination="HH">2001</ID>
<ID Destination="BB">3003</ID>
</CR>
</ExportCR>

当然，我的文件里有几百个这样的record,上面我只是选取了2个record.

我想读成以下的格式：

Date1    Date2    R_ID    Response    Destination     ID     Destination     ID

可是如果用EXCEL直接IMPORT   XML文件，它把最后的两组Destination ID分成了两行，但是大家可以看到，其实这两组是属于同一个CR里面的。

我能用EXCEL读出来的是这样的：

Date1        Date2        Response        R_ID        ID        Destination
109        108        This is a bad  response.        12345        10001        HH
109        108        This is a bad  response.        12345        10002        BB
109        107        This is a good response.        67890        2001        HH
109        107        This is a good response.        67890        3003        BB


但是我希望是这样的：

Date1        Date2        Response        R_ID        ID        Destination        ID2        Destination3
109        108        This is a bad  response.        12345        10001        HH        10002        BB
109        107        This is a good response.        67890        2001        HH        3003        BB

朋友帮写了一个perl的东西，但是对perl特别不了解，所以特来请教VBA高手，如何用VBA解决这个问题？

BTW,我的EXCEL有03版的，有07版的。

不胜感激！！