看如下的代码:
function ExportExcelForBmp(sfilepath : string) : Boolean;
varexcel : OleVariant;
workBook : OleVariant;
workSheet : OleVariant;
picture : OleVariant;
workRange : OleVariant;
i:integer;
begin
result := true;
try
excel := CreateOleObject('excel.Application');
workBook := excel.workBooks.open('c:\1.xls'); //打开xls文件 在excel2007 2003经过测试发现出现提示对话框。
//测试结果:
//用友华表TCell的WorkbookReadonly属性为True时导出xls文件使用excel2007 or excel2003打开都出现提示对话框。假如为False时则不出现这个提示。
workSheet.Select;
workRange := workSheet.Range[workSheet.Cells.Item[6,1],workSheet.Cells.item[7,1]]; //目标位置
picture.left := workRange.left + 1; //左
picture.top := workRange.top + 1; //高
picture.width := workRange.width - 2; //宽度
picture.height := workRange.height - 2; //高度
picture := Unassigned;
workBook.save; //保存
except
result := false;
end;
workBook.close;
excel.Quit;
excel := Unassigned;
end;