作者:乔山办公网日期:
返回目录:excel表格制作
delphi利用comobj可以象在excel中用VBA操作表格一样。所以,你先了解VBA的操作(宏),再看看delphi这方面的例子(网上很容易搜索的)。
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
Var FExcel :OleVariant; //excel应用程序
FWorkBook :OleVariant; //工作表
FWorksheet:OleVariant; //工作薄
FPicture:OleVariant;
TmpStr:String;
begin
FExcel:= CreateoleObject('excel.Application');
FWorkBook:=FExcel.WorkBooks.Add; //新的工作表
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Select;
//插入e799bee5baa6e59b9ee7ad94365图象并设置位置与大小
tmpstr:='f:\1.jpg';
FPicture:=FWorksheet.Pictures.Insert(tmpstr);
FPicture.Left:=10;
FPicture.Top:=10;
FPicture.width:=200;
FPicture.height:=200;
FPicture:=null;
FExcel.visible:=true;
end;
上面的代码我试过了,可以实现
要判断.EXCEL某行某列是否有数据.然后insert
我用上面的复语句,提示类pictures的insert方法无效比如我用下面语句在制[i,j]的单元格中写上“相线”两个字现在如果我百想在[i,j]的单元格度中插入一张图片,就该用什么命令?Sheet1.Cells[i,j] := '相 线';按你说的方法是问不是Sheet1.pictrues.insert('c:\..\100.bmp').select但这样会出“类pictures的insert方法无答效"的错误!请指教!