procedure TOfficeform.Button2Click(Sender: TObject); var MSExcel:Variant; i,j:Integer; begin SaveDialog1.Filter:='*.XLS|*.XLS'; SaveDialog1.DefaultExt:='XLS'; if SaveDialog1.Execute then begin MSExcel:=CreateOLEObject('Excel.Application'); MSExcel.WorkBooks.Add; MSExcel.Visible:=False; Table1.Open; j:=Table1.RecordCount; Table1.First; for i:=1 to j do begin MSExcel.Cells[i,1].NumberFormat:='@'; MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString; MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString; Table1.Next; end; MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName); MSExcel.ActiveWorkBook.Saved:=True; MSExcel.Quit; end; end;
var MSExcel:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.XLS|*.XLS';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
MSExcel:=CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Add;
MSExcel.Visible:=False;
Table1.Open;
j:=Table1.RecordCount;
Table1.First;
for i:=1 to j do
begin
MSExcel.Cells[i,1].NumberFormat:='@';
MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString;
MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString;
Table1.Next;
end;
MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
MSExcel.ActiveWorkBook.Saved:=True;
MSExcel.Quit;
end;
end;