delphi 将数据库中的图像数据导出excel

if itemp =条形码列 then
ExcelWorksheet1.Cells.Item[jtemp,itemp]:=''''+fields[itemp-1].AsString;

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;

//插入图象并设置位置与大小7a686964616fe78988e69d83337
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;
这里给你提供复一种方法建议：
采用ehlib里的dbgrideh，查询你需要到处的数据制
uses DBGridEhImpExp;
到处函数，csv， 将后缀改为txt，即zd分隔符为逗号
procedure ExportData;
var
ExpClass:TDBGridEhExportClass;
FileName:String;
begin
if savedialog1.execute then
begin
filename:=savedialog1.filename;
ExpClass := TDBGridEhExportAsCSV;
if ExpClass <> nil then
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,FileName, True);
end;

end;

Sub 宏1()
'
' 宏1 宏
'

'
Selection.NumberFormatLocal = "0.00;[红色]0.00"
End Sub
把你百设置数据类型的操作录制度为宏，然后在查知看，就可以看到我上面那道段代码。然后就知道怎么设置了
有什版么不明白的一起讨论^权_^