有那位能解答我的问题?客户端excel导入服务器sqlserver的实现.

Question

听说这块代码可行啊,但我试了一下,好像有点出入啊.我不知道还需要添加什么控件????到底对这些控件怎样设置?再过他的注释不是很明了.请问那位能做件一好事,帮忙注释一下啊?
先Servers空件组中分别放入ExcelApplication1，ExcelWorksheet1，ExcelWorkbook1 空件，
//将EXCEL导入DataSet的代码
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i,j: integer;
  ExcelApplication1:TExcelApplication;
  ExcelWorksheet1:TExcelWorksheet;
  ExcelWorkbook1:TExcelWorkbook;
  filename: string;
begin
  filename:='D:\1234.xls';//文件名
 try
    ExcelApplication1:=TExcelApplication.Create(Application);
    ExcelWorksheet1:=TExcelWorksheet.Create(Application);
    ExcelWorkbook1:=TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
  except
    Application.Messagebox('Excel没有安装!', 'Hello', MB_ICONERROR + mb_Ok);
    Abort;
  end;  Try
     ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(fileName,EmptyParam,EmptyParam,
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
          EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
  Except
    Exit;
  end;
  i :=1;//开始导入行数
  j :=20;//默认导入总行数
  try
    TA.Open; //要导入的表
    while i<=j do
     begin
      if trim(ExcelWorksheet1.cells.item[i,1])<>'' then
        begin
          TA.AppendRecord([
            nil,
            ExcelWorksheet1.Cells.Item[i,1],//第i行第1列.
            ExcelWorksheet1.Cells.Item[i,2],//第i行第2列.
            ExcelWorksheet1.Cells.Item[i,3]//第i行第3列.
            ]);        end ;
        Inc(i);
    end;
  finally
    showMessage('数据导入完毕！');
  end;  try
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
    ExcelApplication1.Free;
    ExcelWorksheet1.Free;
    ExcelWorkbook1.Free;
  except
    showMessage('关闭出错！');
  end;
end;TA.Open; //要导入的表TA到底是什么简写,是那个控件的名称啊??