【结贴】导入问题**

beidou

一个窗体，包含DateGrid，做了2各button，目的是把表格的内容导出并且导入。

代码如下：

procedure TFormDataImport.ToolButton7Click(Sender: TObject);
Var
  lMsg: String;
begin
  lMsg := '';
  OpenDialog1.Filter := 'Excel(*.xls)|*.xls';
  if OpenDialog1.Execute then
  begin
    DataSetTargetDef.Open;
    DataSetTargetDef.EmptyDataSet;
    ExcelToTable.FileName := OpenDialog1.FileName;
    ExcelToTable.StartRow := 1;
    ExcelToTable.EndRow := 5000;
    ExcelToTable.Execute(lMsg);
  end;
end;

procedure TFormDataImport.ToolButton9Click(Sender: TObject);
begin
  SaveDialog1.Filter := 'Excel(*.xls)|*.xls';
  SaveDialog1.FileName := 'sheet1.xls';
  if SaveDialog1.Execute then
    DataGrid3.SaveToXLS(SaveDialog1.FileName+'.xls',true);

end;

有这么几个问题：
1、导出后需要手动删除excel里面的列头才能导入。
2、有没有办法代码控制导出的excel版本是office03以下
3、导入的时候第一次没有问题，可是连续导入几次以后内存占满，机器死机。感觉应该是代码的问题，怎么修改代码能避免这个问题。

第三个问题最为重要。谢谢

lixy

第三个问题，可以尝试动态创建ExcelToTable组件，每次导入完后，释放这个组件。
1、我用的版本中，没有碰到这个问题。

beidou

lixy  ，谢谢。。。我能看看你怎么写的吗？

lixy

procedure TMainForm.Button1Click(Sender: TObject);
var
   lExcelToTable:TExcelToTable;
   lmsg:string;
begin
if OpenDialog1.Execute then
begin
    lExcelToTable:=TExcelToTable.Create(self);
    try
      lExcelToTable.FileName := OpenDialog1.FileName;
      lExcelToTable.DataSource:=DataSetBroker1;
      if ExcelFieldMapFunc.ShowFieldMapEditor(lExcelToTable) then
      begin
       if not lExcelToTable.Execute(lmsg) then
          begin
            jsDialogs.ShowError(lmsg, '导入excel失败!');
          end ;
       end;
     finally
       lExcelToTable.free;
     end;
  end;
end;

beidou

谢谢，非常感谢