165分，参阅“如何导入成批数据？”。

Question

从EXCEL读数据的部分代码：
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0]:=True;
  ExcelApplication1.Workbooks.Open('C:\turn\some.xls',1,1,1,1,1,1,1,1,1,1,1,1,1);
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
  for I:=2 to 11 do
  begin
    BName:=ExcelWorkSheet1.Cells.Item[I,1];
    Jing:=ExcelWorkSheet1.Cells.Item[I,2];
          begin
            with table1 do
              begin
                Append;
                FieldByName('hh').ASstring:=BName;
                FieldByName('jj').ASstring:=Jing;
                Post;
              end;
       end;
    end; //I 的循环到此结束；
    ExcelApplication1.Quit;
    ExcelApplication1.Disconnect;
end;
end.

Answer 1

具体点。
 
[email protected]