delphi 如何把Excel表的导入到Sql05数据库中？

//将Excel中的数据导入StringGrid中
Function ExcelToStringGrid(var StrGrid:TStringGrid;ExcelFileName:string):String;
Function IsInIt(EmployeeNum:string):boolean;
var
i:integer;
ret:boolean;
begin
ret:=False;
for i:=0 to StrGrid.RowCount-1 do
begin
if EmployeeNum=trim(StrGrid.Cells[0,i]) then
begin
ret:=True;
break;
end;
end;
result:=ret;
end;
var
ExcelApplication: TExcelApplication;
ExcelWorkbook: TExcelWorkbook;
ExcelWorksheet: TExcelWorksheet;
count,NowRow,i:integer;
ret:String;
begin
ret:='导入成功';
try
screen.Cursor :=crSQLWait;
if Not FileExists(ExcelFileName) then
begin
//文件不存在
ret:='文件不存在';
exit;
end;
//测试EXCEL是否安装
Try
ExcelApplication:=nil;
ExcelWorkbook:=nil;
ExcelWorksheet:=nil;