对面的大虾看过来！求助！关于Excel的问题！！急！！急！！

Question

try
     dataset.DisableControls;
     Book:=dataset.Book;
     XLApp:= CreateOleObject('Excel.Application');
     XLApp.Visible := True;
     XLApp.Workbooks.Add(-4167);
     XLApp.Workbooks[1].WorkSheets[1].Name :='ϵͳÊý¾Ý';
     Sheet := XLApp.Workbooks[1].WorkSheets['ϵͳÊý¾Ý'];
     for I:=1 to dataset.FieldCount do Sheet.Cells[1, i]:=dataset.Fields[i-1].FullName;
     j:=2;
     dataset.First;
     while not dataset.eof do
        begin
          for i := 1 to dataset.fieldcount do
              Sheet.Cells[j, i] :=dataset.FieldByName (dataset.fields[i-1].FieldName ).AsString;
          j:=j+1;
          dataset.next;
        end;
  finally
     dataset.EnableControls;
     dataset.Book:=Book;
  end;

Answer 1

执行到15条记录时再Add一次，循环你就自已写的。