请问如何导入一个外部的Excel文件到自己的数据表？

Question

不好意思没分了

Answer 1

Result := False;
  with ADOTable1 do
  begin
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
                        'Data Source= D:\..;Extended Properties=Excel 8.0;' +
                        'Persist Security Info=False';
    TableName := 'AAA#TXT';
    Open;       
    if Active then
      Result := True;
  end;

Answer 2

用上面兄台的代码先读取excel文件的数据到ADOTable1 ，然后遍历ADOTable1 ，将记录逐条添加到一个clientdataset（通过datasetprovider与一个ADOQuery关联），再通过clientdataset.applyupdates()更新回数据库。数据量大时遍历会较耗时，不知效率能否满足要求。不要用两层结构通过数据集post的方式更新回数据库，效率会更低。

Answer 3

如果数据库是Access(当然SQLSever也可以)
它支持直接从Excel导入ACCESS!
很方便,我试过将上万条记录导入Access,不到10秒.
(注明:以上是手动导入)

Answer 4

使用delphi自带的excel控件可以直接读出excel表格中每一格的数据，试试看