关于Excel 的，大虾帮忙

[zhangchunge]

我想把数据导入到Excel模板中，下面是我写的代码，不知道为什么输不进去，大虾看看

try
excel := CreateOleObject('Excel.Application');
WorkBook := excel.Workbooks.open(ExtractFilePath(Application.ExeName)+'复件 1.xls');
excel.WorkBooks.Add;
except
excel := NULL;
ShowMessage('请先安装Excel2003。');
EXIT;
end;
excel.Cells[1, 3].Value := trim(Edit2.text);
excel.ActiveWorkbook.Save;
excel.activeworkbook.close;
excel.quit;
excel:= Unassigned;

[zhangchunge]

[suxiaolsx]

使用Sheet页存，而不是用Excel存。 Excel.ActiveSheet.Cells[1, 3].Value := trim(Edit2.text);

[zin5970]

excel.ActiveSheet.Cells[1,3] := trim(Edit2.text); excel.ActiveWorkbook.Save; 我一般习惯定义一个variant类型的变量sheet，这个可以方便操作多个wrokbook或多个worksheet sheet := excel.workbooks[1].worksheets[1]; //如果你只打开一个workbook，可以简写成excel.worksheets[1]; sheet.cells[1,3] := trim(Edit2.text);