EXCEL导入到SQL有关问题

EXCEL导入到SQL问题
我从网上找了很多把EXCEL导入到SQL数据库的代码，可是那些都是EXCEL表只有一个Sheet而已。
我想实现选择EXCEL文件后还选择导入哪个Sheet再导入。不知道如何实现。各位高手帮帮忙，谢谢啦。
[解决办法]
procedure TFrmGoods.ToolButton14Click(Sender: TObject);
var
   sheetList:Tstrings; 
begin
   if  not OpenDialog1.Execute  then exit;
   sheetList :=TStringList.Create;
    {ADOConn是数据库连接控件ADOConnection}
    ADOExcel.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + OpenDialog1.FileName + ';Extended Properties=excel 8.0;Persist Security Info=false';
    ADOExcel.Connected := True;
    ADOExcel.GetTableNames(sheetList);　//取SHEET列表    
    with Qexcel do
    begin
         Close;
         sql.text:='select * from ['+sheetList[0]+']';//得到EXCEL文件中的第一个表格的数据
         open;
         //取数据,执行导入
    end;
end;