请问怎么样才能将cxGrid1里面的图片导出到EXCEL中

Question

现在用 ExportGrid4ToExcel(saved.FileName+'.XLS',cxGrid1,false,true,false);
可以导出数据到EXCEL中,但是图片字段的图片却是空白的,请问要怎么解决??

Answer 1

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;   
    
      //插入图象并设置位置与大小   
        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;   
这个图片你可以读为流。。

Answer 2

cxGrid字段中有编号,品名,图片(jpg格式),备注
我想要的结果是导出数据到EXCEL中显示:
编号  品名       图片        备注
001   杯子   (这里显示图片)  100个
以上的编号,品名,备注都正常,但就是图片无法显示
请问高手如做解决????????