【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了dy7.pas相关资料，希望对各位网友有所帮助!

    unit dy7;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleServer, Excel2000, StdCtrls, DB,ComObj, DBTables, OleCtnrs,
      Grids, DBGrids, Buttons, ExtCtrls, ADODB ;
    
    type
      TForm1 = class(TForm)
        DataSource1: TDataSource;
        Panel1: TPanel;
        DBGrid1: TDBGrid;
        a: TExcelApplication;
        Table1: TADOTable;
        BitBtn1: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn2: TBitBtn;
        Workbook: TExcelWorkbook;
        Worksheet: TExcelWorksheet;
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.BitBtn3Click(Sender: TObject);
    begin
      a.Connect;
      a.Workbooks.Open('c:\result.xls',null,null,null,null,null,null,null,null,null,null,null,null,1);
      a.Visible[0]:= True;
      Workbook.ConnectTo(a.Workbooks[1]);
      Worksheet.ConnectTo(Workbook.Worksheets[1] as _worksheet);
    end;
    
    procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
      m,n: Integer;
      ole: OleVariant;
    begin
         ole := CreateOleObject('excel.application');
        ole.workbooks.Add;
        For m := 1 to Table1.FieldCount do
          ole.Cells.Item[1,m]:= Table1.Fields[m-1].FieldName;
        m := 2;
        table1.First;
        while Not Table1.Eof do
        begin
          For n := 1 to Table1.FieldCount do
            ole.Cells.Item[m,n] := Table1.Fields[n-1].AsString;
            inc(m);
            Table1.Next;
        end;
        ole.ActiveWorkBook.SaveAs('c:\result.xls');
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Table1.Open;
    end;
    
    end.
    

上一篇：Ex02_3.cpp
下一篇：“台独”的渊源与实质（中）——兼论台湾问题的基本估计与中国统一的可能前景