Delphi文件流导出EXCEL的一段简单代码, 效率非常高啊，抛弃oleObject

agai

于 2012-03-22 11:19:25 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi excel integer string button forms

本文链接：https://blog.youkuaiyun.com/agai001/article/details/7382314

本文分享了一段使用Delphi进行文件流导出Excel的代码，该方法效率高，避免了使用oleObject。通过简单的编程，可以快速生成EXCEL文件，适合需要大量处理Excel数据的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  CXlsBof: Array[0..5] Of Word = ($809, 8, 0, $10, 0, 0); 
  CXlsEof: Array[0..1] Of Word = ($0A, 00);
  CXlsLabel: Array[0..5] Of Word = ($204, 0, 0, 0, 0, 0);
  CXlsNumber: Array[0..4] Of Word = ($203, 14, 0, 0, 0);
  CXlsRk: Array[0..4] Of Word = ($27E, 10, 0, 0, 0);
implementation


{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var
  I, N, Count: integer;
  FileStream: TFileStream;
  FRow, FCol: Integer;


  Procedure WriteFloat(Const AValue: String);
  Var
    V: Double;
  Begin
    If AValue = '' Then
      V := 0.00