ExcelApplication1.Connect; ExcelApplication1.Visible[0]:=True; ExcelApplication1.Workbooks.Add(NULL,0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet); for idx:=1 to 30 do begin ExcelWorksheet1.Cells.Item[idx,1]:='Hello '+IntToStr(idx); ExcelWorksheet1.Cells.Item[idx,2]:= idx; end; ExcelWorksheet1.Cells.Item[31,2]:='=SUM(B1:B30)';
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
for idx:=1 to 30 do begin
ExcelWorksheet1.Cells.Item[idx,1]:='Hello '+IntToStr(idx);
ExcelWorksheet1.Cells.Item[idx,2]:= idx;
end;
ExcelWorksheet1.Cells.Item[31,2]:='=SUM(B1:B30)';
ExcelApplication1.Quit;
中的NULL如果写成C:\123.xls,那么就是和C:\123.xls相连了