L
longxh025
Unregistered / Unconfirmed
GUEST, unregistred user!
以下代碼是導出把圖片導入到execl.但是怎麼調試都不能導入到指定的單元格中.....,高手指點.謝謝!!procedure TForm1.Button3Click(Sender: TObject);Var FExcel:OleVariant; //excel?用程序 FWorkBook :OleVariant; //工作表 FWorksheet:OleVariant; //工作薄 FPicture:OleVariant; TmpStr:String; range,sheet:Variant; begin FExcel:= CreateoleObject('excel.Application'); FWorkBook:=FExcel.WorkBooks.Add; //新的工作表 FWorksheet:=FWorkBook.Worksheets[1]; // FWorksheet.cell[1,7].Select; //插入?象并?置位置与大小 tmpstr:='f:/1.jpg'; // myworksheet1.Range['g3','h7'].select;//myworksheet1是?前活?的sheet? // Range:= FWorksheet.OleObject.application.Range['A1:C3']; // FWorksheet.Range[FWorksheet.cells[10,1]].Select; FPicture:=FWorksheet.Pictures.Insert(tmpstr); FPicture.Left:=10; FPicture.Top:=10; FPicture.width:=200; FPicture.height:=200; FPicture:=null; FExcel.visible:=true; end ;