怎么把表中图片(blob)类型字段导入到excel表中!!(50分)

怎么把表中图片(blob)类型字段导入到excel表中!!
希望大侠们帮帮忙?急用!

用剪贴板，但是无法插到Cell中又有什么用？Cell不支持图片。剪贴板无法在excel中定位。

改进Word吧，好歹还能放进表格的单元格。

用代码怎么实现?

C:/Program Files/Borland/Delphi5/Demos/Activex/Oleauto/SrvComp/Word
然后搜索意下以前关于WORD的帖子。

ExcelWorksheet1.Shapes.AddPicture('logo.bmp',$00000000,$FFFFFFFF,380,25,100,20);

C:/Program Files/Borland/Delphi5/Demos/Activex/Oleauto/SrvComp/Word

打开上面的例子，然后加入如下代码：
i:Integer;
TempImage:TBitmap;

然后在原代码
WordDocument.Range.InsertAfter(' ' + #13);
WordDocument.Range.InsertAfter(' ' + #13);
WordDocument.Range.InsertAfter(' ' + #13);
之后加入如下代码：
WordDocument.Tables.Add(WordDocument.Paragraphs.Last.Range,Table.RecordCount+1,4);
WordDocument.Tables.Item(1).Cell(1,1).Range.Text:='Common Name';
WordDocument.Tables.Item(1).Cell(1,2).Range.Text:='Species Name';
WordDocument.Tables.Item(1).Cell(1,3).Range.Text:='Length';
WordDocument.Tables.Item(1).Cell(1,4).Range.Text:='Photo';
For i:=1 to Table.RecordCount do
begin
Table.RecNo:=I;
with WordDocument.Tables.Item(1) do
begin
Cell(i+1,1).Range.Text:=Table.FieldByName('Common_Name').AsString;
Cell(i+1,2).Range.Text:=Table.FieldByName('Species Name').AsString;
Cell(i+1,3).Range.Text:=Table.FieldByName('Length (cm)').AsString;
TempImage:=TBitmap.Create ;
TempImage.Assign(Table.FieldByName('Graphic')) ;
if not TempImage.Empty then
begin
ClipBoard.Assign(TempImage);
Cell(i+1,4).Range.InsertAfter(#13) ;
Cell(i+1,4).Range.Paste;
end;
TempImage.Free;
end;
end;
在Word97下无法插入到单元格，不知为何，word2000下通过。

Cell(i+1,4).Range.InsertAfter(#13) ;
可以不要。

excel中的剪切板怎么调用图片.?

如果你能在excel中很方便的定位图片，你不妨照上面的方法试试，都差不多的。

接受答案了.