登录
首页 » Delphi源码 » Delphi 创建Excel表格文件

Delphi 创建Excel表格文件

于 2022-02-15 发布 文件大小:95.66 kB
0 180
下载积分: 2 下载次数: 1

代码说明:

Delphi 读取SQLSERVER数据库内容,并创建Excel表格文件,将内容导出到excel文件中,核心同样是基于createoleobject对象的excel.application方法实现,创建EXECEL对象 ,添加comobj单元,用循环加入记录,将数据表导入到Excel表中,正式开始EXECEL输出。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 从剪贴板中读取图片
    Delphi 从剪贴板中读取图片,Windows剪帖板相信大家都知道吧,这个程序可查看剪贴板中的图像,将图片另保存,可看作是一个查看剪贴板中图片的一个例子。   implementation   {$R *.dfm}   procedure TForm1.BitBtn1Click(Sender: TObject);   begin    Clipboard().Assign(Image1.Picture.Bitmap);   end;   procedure TForm1.BitBtn2Click(Sender: TObject);   begin    if Clipboard().HasFormat(CF_BITMAP) then    Image2.Picture.Bitmap.Assign(Clipboard());   end;   procedure TForm1.BitBtn3Click(Sender: TObject);   begin    Image2.picture := nil;   end;   end.
    2022-06-13 13:08:12下载
    积分:1
  • 在Delphi中进行 YCrCb RGB 颜色值转换
    在Delphi中进行 YCrCb RGB 颜色值转换,载入一张测试图片,右侧显示的转换后的颜色图像,文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子,帮你了解一下YCrCb向RGB颜色值的转换过程,转换方法和思路,本源码中则是具体的实战代码,请下载后研究。
    2022-05-23 08:16:07下载
    积分:1
  • Delphi 与Java TCPIP通信的范例
    这个Delphi例子我觉得值得看,用Java写了TCPIP通信的服务端,用Delphi写了客户端,两者在不同的语言环境下运行,并建立TCPIP通信,服务端的运行效果如示例截图所示。为了不发生消息乱码的现象,两者程序编码采用UTF8格式,用UTF-8格式发送出去,收到的UTF-8数据转成ANSI,这一部分的参考请参见util_utf8.pas文件,消息发送、服务器建立连接部分,请参见Unit1.pas文件。
    2022-08-23 01:44:09下载
    积分:1
  • Delphi+Interbase-Code-汽配进销存-全-使用手册-钻石精品
    (R)-Delphi+Interbase-Code-龙邦汽配进销存源码-源代码全-使用手册-钻石精品
    2022-03-16 11:47:13下载
    积分:1
  • Delphi 文件目录操作
    一个基础的Delphi 文件目录操作示例,这里是拷贝指定的文件夹目录,一是了解复制文件的原理,二是熟悉Delphi中的目录操作技巧。
    2022-03-15 15:35:17下载
    积分:1
  • Delphi 获取拖动到窗体中的文件的路径
    Delphi 获取拖动到窗体中的文件的路径,这实际上是一个拖放打开文件的例子,这只不是其中的一个步骤,拖放打开是把文件拖放到本窗口中,直接打开该文件,而拖放得到路径是把文件的路径显示在窗口中,和打开文件其实难易程序是一样的。拖放后获取文件路径,代码如下:   procedure TForm1.FileIsDropped(var Msg: TMessage);   var    NumFiles : longint;    i : longint;    FName : array[0..255] of char;   begin    SetForegroundWindow(Handle);    NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);    for i := 0 to (NumFiles - 1) do    begin    DragQueryFile(Msg.WParam,i,FName,sizeof(FName));    Memo1.Lines.Add(FName);    end;   end;
    2022-09-25 15:45:03下载
    积分:1
  • Delphi实现简单TCP服务器范例
    “欢迎连接到简单TCP服务器”,这是本代码编译成功,运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器,客户端代码同样完整,指定主机IP、端口后,就可连接该服务器,客户端和服务端代码都要编译才能运行,先运行服务端并设置好,再启动客户端,然后进行消息发送和接收。
    2022-01-26 07:51:08下载
    积分:1
  • Delphi 鼠标双击TStatusBar时判断是哪一个panels
    Delphi 鼠标双击TStatusBar时判断是哪一个panels,这个是把窗口的状态栏分隔,每个隔断中显示不同的内容,用鼠标双击不同的隔断,程序将判断用户点击了哪个隔断,并获取到该栏中的文字内容显示出来。
    2023-02-09 01:20:03下载
    积分:1
  • EI3.0(DELPHI)
    EI3.0(DELPHI源码),据说挺完整的,可以下载一下试试
    2022-03-30 08:16:31下载
    积分:1
  • Delphi 利用API绘制弧形
    Delphi 利用API绘制弧形,   begin    ArcRect := ClientRect;    Canvas.Pen.Width:=2;    for i:=1 to 10 do    begin    Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,    ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,    ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);    InflateRect(ArcRect,-2,-2);    Canvas.Pen.Color := PaletteIndex(i+10);    end;
    2022-03-21 03:44:09下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载