EXCEL导入到SQL问题

Question

我从网上找了很多把EXCEL导入到SQL数据库的代码，可是那些都是EXCEL表只有一个Sheet而已。
我想实现选择EXCEL文件后还选择导入哪个Sheet再导入。不知道如何实现。各位高手帮帮忙，谢谢啦。

Answer 1

两种方案，一种用sqlserver自带的导入工具，二方案，自己写代表，我曾做过类似的导入工具，如果有多个sheet会让你选择，你要导哪个。

Answer 2

我是在程序里要做这个相关功能，所以不能用sqlserver自带的导入工具。我是新手，能告诉我代码吗？

Answer 3

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;