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;