数据导入问题？？

Question

如何将EXCEL表里数据逐条增加到SQL的表里？（EXCEL表的字段同SQL表的字段相同）

Answer 1

直接用SQL Server的“导入和导出数据”功能

Answer 2

用程序代码实现：
  ExcelApplication1:=TExcelApplication.Create(nil);
  try
    ExcelApplication1.Connect;
  except
    ExcelApplication1.Free;
    exit;
  end;
  try
    ExcelApplication1.Visible[0]:=True;
    Excelapplication1.Workbooks.Open(OpenDialog1.FileName,null,null,null,null,null,null,null,null,null,null,null,null,0);
    WorkBk  := ExcelApplication1.WorkBooks.Item[1];
    WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
    WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
    X := Excelapplication1.ActiveCell.Row;
    Y := Excelapplication1.ActiveCell.Column;
    RangeMatrix := Excelapplication1.Range['A1',Excelapplication1.Cells.Item[X,Y]].Value;
    for iRE:=0 to X-2 do
    begin
    end;
  except
    ExcelApplication1.Free;
    exit;
  end;
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;

Answer 3

WorkBk, WorkSheet是什么类型？