改变已有的excel表格式，怎么操作excel表

Question

已经导出数据到一个excel表格中，但想要转换格式。比如：
以前的是横行：
　　姓名　　日期　　　　时间　　　　加班
　　张三　　2005-04-01　10：10　　　2
现在需要改为竖行的：
　　姓名　　张三
　　日期　　2005-04-01　
　　时间　　10：10　
　　加班　　2
保存到另一个excel文件名中。请问怎么操作excel表，读入读出

Answer 1

excelworksheet1.Cells.Item[1,9].FormulaR1C1:=excelworksheet2.Cells.Item[1,9].FormulaR1C1;
你能看懂上面的句子吗，工作本2的1,9单元格的值赋给工作本1的1,9单元格

Answer 2

同意
只能用ole automation 服务器来实现

Answer 3

俺太笨，还是不知道，请问怎么“用ole automation 服务器来实现”，怎么“从现有的表中读取”，怎么“重新导出一次”，能给出代码吗？谢谢！

Answer 4

var 
  excel,sheet:variant;
begin
  excel:=createoleobject('Excel.application');
  sheet:=excel.workbooks[1].sheets[1];
  excel.visible:=true;
  sheet.cells[1,1].value:='姓名';
  sheet.cells[2,1].value:='日期;
  sheet.cells[3,1].value:='时间';
  sheet.cells[4,1].value:='加班';
  ......//按上方法添加数据库记录
end;