失去Excel中多个sheet的name

得到Excel中多个sheet的name
请教高手,当Excel中有多个sheet时怎么得到Excel中各个Sheet的name;或者怎么把Excel中多个sheet导入sql server。
------解决方案--------------------
BCB对excel的操作有多种方法
1.BCB6有自带的execl控件(其它版本没注意)
2.用OLE的方法
3.第三方控件
个人推荐XLSReadWrite,它目前已支持最新的XE2,以几行下代码就可以得到Sheet(我用的老版本)

 XLSReadWriteII21->Filename="f:\\mydoc\\GCC_C0x.xls";
  XLSReadWriteII21->Read();
  for (int i=0;i< XLSReadWriteII21->Sheets->Count;i++)
    Memo1->Lines->Add(XLSReadWriteII21->Sheets->Items[i]->Name);

至于excel导入到sqlserver,也有多种方法
最简的方法是一行行生成SQL写入,另外也可以直接用SQL命令
这个网上有很多,参考:
http://www.jz123.cn/text/071343.html