高手去了那里啊？难道这样的问题会把中国的delphi程序员难住吗？

拷贝到剪贴板，然后粘贴进去。我在word中就是这么干的。

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs,comobj, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
        exApp,exWB,exSheet:Variant;
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
    exApp:=CreateOleObject('Excel.Application');
      exApp.visible:=true;
      exApp.Caption:='Call Excel from Delphi';
      exWB:=exApp.workbooks.add;
      exSheet:=exWB.ActiveSheet;
      exSheet.Pictures.Insert('c:\f1.gif');end;procedure TForm1.Button2Click(Sender: TObject);
    begin
    exApp.Quit;
        exWB:=Unassigned;
        exSheet:=Unassigned;
        exApp:=Unassigned;end;end.
      

  2.   

    to outer2000
    我说的是excel单元格，不是整个表。
      

  3.   

    to robinhunter(深空)
    有没有源码啊？
      

  4.   

    outer2000(天外流星) (  ) 信誉：105 
    已经给出了解决方案，还急什么？
      

  5.   

    outter2000只是针对整个表来插入，我的意思是paradox每条记录中的图片可以按顺序地导入excel表中的单元格里。
      

  6.   

    你试一试用DBImage把图片读出来,
    然后用outer的方法写入Excel
      

  7.   

    我不想给你原码，有些动东西必须自己动手才有体会，你应该用ole自动化对象建立
    同excel2000的连接，并从数据库中只取图像字段赋给excel就是了，具体做法有你自己实现，自己动手丰衣足食么？哈哈！！！！！！！！
      

  8.   

    to shizhoubo 
    我也是这样做的，但是没办法解决excel单元格数据格式和图片格式之间的转换，
    有没有这两者间的转换函数？
      

  9.   

    excel单元格里可以放图片？好像不行吧！