请教Delphi To Excel 的高手!!!(求命...)(95分)

谁可以用DELPHI输出以下格式到EXCEL!!!!!
格式如下:
公司名称:大富翁论坛
{图片logo} 地址:广东省中山市小榄镇德源中路99号
电话:0760-1101234 传真:0760-1234567
产品报价列表
-------------------------------------------------------------
日期:2006-02-23
单号: HK_2006_0005 客户:珠海中天达外贸有限公司
有效日期:2006-02-28

产品图片 产品信息
编号:vlk_0002
{图片} 描述:BUTTERFLY
规格:W13cm X H22cm
备注:1234567890

你在Excel录制一个宏就简单了
你给我一个Excel的范本
发到我的邮箱 xukehg@sohu.com

你给我一个Excel的范本：所有信息！然后这张表是读数据库得出的吧？
我以前做过的，flywolf804@163.com

TO:Avalon
那太好啦!!!
TO:ranyang
太好啦!!!

excel文件已发...谢谢你们!

相关的资料，可以给我一份吗？swj0956@163.com 谢谢啦

用Formone控件就可把数据集导到Excel里

TO:ASUU
Excel文件已发!!!!!!期待你的帮助!!!

TO:路在脚下
什么控件来的...能发到我邮箱里吗????
bayernchan@126.com

等待中....
主程序已写好,现在就是卡在输出EXCEL这个问题(主要是输出图片的问题(图片是从数据库导出的..)!)..希望大家能帮助一下....

[][][][][]

我自己写的程序，从数据库导出到EXECL，或许对你有用
with dmm do
begin
aqr_dm.Close;
aqr_dm.SQL.Clear;
aqr_dm.SQL.Add(sqlstr);
aqr_dm.Active:=true;
Application.CreateForm(Tfmbrow, fmbrow);
fmbrow.Show;


with excelapplication1 do
begin
Disconnect;
visible[0]:=false;
sheetsinnewworkbook[0]:=1;
workbooks.Add(emptyparam,0);
excelworkbook1.ConnectTo(workbooks[workbooks.count] as _workbook);

end;

with aqr_dm do
begin
with ExcelWorksheet1 do
begin
ConnectTo(ExcelWorkBook1.Sheets[1] as _Worksheet);
name:='浏览'+formname;
for i:=1 to fields.Count-1 do
cells.Item[1,i]:=fields[i-1].DisplayName;
with range[cells.Item[1,1],cells.Item[1,fields.Count]] do
begin
interior.Color:=clgray;
font.Bold:=1;
end;

end;
inc(j);
first;
while not eof do
begin
for i:=1 to fields.Count do
begin
excelworksheet1.Cells.Item[j,i]:=fields[i-1].Value;
end;
next;
fmbrow.ProgressBar1.StepIt;
inc(j);
end;
end;
fmbrow.Close;
excelapplication1.visible[0]:=true;
excelapplication1.Disconnect;
application.messagebox('数据准备就绪！','系统提示');
end;

大家能给个DEMO来看看吗?相信大家以前也遇过这种问题的!!!!

关注中......
现在正碰到类似问题,希望高手能贴出DEMO,
可以的话发一份到EMAIL:icelovey@yahoo.com.cn

问题已自行解决....谢谢xst945

不好意思！这两天没上网！东西刚收到！看你自己搞定了！恭喜