高分求!怎样向固定格式的Excel表中导入数据?

Question

搜索一下以前的帖子～太多了～～～～～固定格式～～无非就是指定在Excel里面的固定的位置～～

Answer 1

  Q：怎样使用Delphi 5中的TExcelApplication操纵Excel 97/2000A：请参考下面的例子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)'; 
ShowMessage('Total is '+ExcelWorksheet1.Cells.Item[31,2]); ExcelApplication1.Disconnect; 
ExcelApplication1.Quit; 
 订正2000-01-07日的用D5控制Excel上次提供的源程序有错误，其中
ShowMessage('Total is '+ExcelWorksheet1.Cells.Item[31,2]); 
应该是
ShowMessage( 'Total is '+String(ExcelWorksheet1.Cells.Item[31,2]) ); 感谢上海的ncq用户指出这个错误。