BCB listbox ADO excel 数据导出,该怎么解决

BCB listbox ADO excel 数据导出
我问三个问题：
1、我在两个listbox之间，当按下一个button时，想将一个listbox中选中的数据导到另一个listbox中去，下面是我的代码
void __fastcall TOutputData::LeftSelectedRemoveClick(TObject *Sender)
{
  ListBox1->Clear();
  TStringList *List5 = new TStringList();//定义TStringList类对象strList
  //int k = ListBox2->SelCount;
  int m = 0;

  if(ListBox2->SelCount > 0)
  {
  for(int i = 0;i<ListBox2->Items->Count;i++)
  {
  if(ListBox2->Selected[i])
  {
  List5->Add(ListBox2->Items->Strings[i].c_str());
  m++;
  }
  }
  }
  for(int j = 0;j<List5->Count;j++)
  {
  //ShowMessage(strList->Strings[j].c_str());
  ListBox1->Items->Strings[j] = List5->Strings[j].c_str();
  }

}
以上能实现一次正确的操作，但是当我想继续往目标listbox中添加数据时（上一次倒过去的保留），该怎么做呢？
2、我用ADO连接sqlserver2000,想将数据表的内容导出到excel中，我现在能实现导出，但是需要在目标文件夹中先建好EXCEL文件，我想问：能不能在代码中直接判断是否有EXCEL文件，如果没有新建一个，这个新建用代码怎么写呢？
3、能不能把读出的excel文件在程序中转成.dat

[解决办法]
左->右

ListBox2->Item->AddStrings(ListBox1->Items);
ListBox1->Items->Clear();