一个弱弱的问题

当然可以另存了.

有二个方案

1、使用 XML 解析控件，微软有一个，自己百度一下。
2、自己解析 XML ，你用记事本打开这个文件，看一下就会知道 。
 <Worksheet ss:Name="任务列表">  工作簿 开始
  <Row ss:AutoFitHeight="0">     一行的开始
<Cell ss:StyleID="s64">          单元格
<Data ss:Type="String">任务名称</Data>     内容
每个标志开始后，后面必定有一个结束。

已知这个文件的标志名了，针对这个文件，搜索所需要的标志就可以了。
搜索 "<Worksheet" ,接着搜索 " </Worksheet> "   这期间的代码就是一个工作表，已知只有一个表格，所以中间一个标志跳
然后搜索 <Row  ，和 </Row> ，得到一行的数据，
然后再搜索  <Cell   和 </Cell> ，每得具体单元格的内容。一共三个循环嵌套。

方案1自己百度。

电脑上没有 VB6 了。记事本写的代码，将就的看吧，使用的是方案2。
查找，使用s1 ，原始数据在 s ，s转大写就变成s1,统统用大写，字符串比较防错。
每个 <Cell 中只有一个 data ，所以省掉了查找 cell 的步骤

s="....."        整个文件内容
s1=ucase(s)      '转大写
i1=1

do  
  i1=instr(i1,s1,"<WORKSHEET")    '从当前位置搜索工作簿开始位置
  IF i1>0 then
     i2=instr(i1,s1,"</WORKSHEET>")
     if i2>0 then         '找到

       i3=instr(i1,s1,"NAME="）     '找名字
       i4=instr(i1,s3,">")          '找名字结束
       工作表名=mid(s,i3+6,i4-i3-7       '取名字，需要测试常量是否正确

       s3=mid(s,i1,i2-i1+1)    '取找到部分的内容
       是否已解析表头=FALSE
       call 解析表(s3)       '去解析表
       i1=i2+1               '从已解析部分后继续下一个循环
     else
       exit do      '没找到结尾，说明文件没完整，不处理了。这个表不完整。
     end if
  else
    exit do         '没找到下一个开头，结束处理
  end if
loop


sub 解析表（s as string)
s1=ucase(s)      '转大写
i1=1
do
  i1==instr(i1,s1,"<ROW")
  IF i1>0 then
     i2=instr(i1,s1,"</ROW>")
     if i2>0 then
       s3=mid(s,i1,i2-i1+1)
       if 是否已解析表头 then
         call 解析行(s3)
       else
         call 解析表头(s3)      '这个子程序就不写了，与 解析行 类似，只是保存的变量不同而以。
         是否已解析表头=true
       end if
       i1=i2+1
     else
       exit do
     end if
  else
    exit do
  end if
end sub

sub 解析行(s as string)
s1=ucase(s)      '转大写
i1=1
do
  i1==instr(i1,s1,"<DATA")
  IF i1>0 then
    i1=instr(i1,s1,">")
    i2=instr(i1,s1,"<")  
    if i2>0 then
       s3=mid(s,i1,i2-i1+1)      '得到单元格内容
       '如何保存，可以使用全局变量的数组进行保存，也可以组合到字符串里      

       i1=i2+1
     else
       exit do
     end if
  else
    exit do
  end if
end sub

万事开头难啊！不知道怎么下手，文件是知道的，叫FilePath，要搜索的内容（sheet）也是知道，怎么打开这个xml文件然后一行一行的读取并识别内容呢？比如像rst.open之类的语句？