delphi 对已存在的 excel进行保存

Question

v := createoleobject('excel.application');
v.workbooks.open('C:\111.xls');
sheet := v.workbooks[1].worksheets[1];
  sheet.cells[3, 1] := '好看'; //单元格内容
  sheet.cells[3, 2] := '确实';
  sheet.cells[3, 3] := '我喜欢';  v.visible := true;  v.DisplayAlerts := false; //是否提示存盘
  v.ActiveWorkBook.Saved:=True;这样修改Excel文件后为什么不能把我所做的修改保存到原文件111中呢？？？

Answer 1

楼主可以参考VBA，这种VBA不是每次一试就成功，最好是自己多加几次试试，尤其是在delphi下。

Answer 2

你只是打开了文件，你没有给文件的保存路径没有定义（说明）：
在 代码的最后加上
v.workbooks.save('C:\111.xls');