mainexcelexport.dfm

delphi读写取excel,内附源码和Demo文件

object FormExcelExport: TFormExcelExport
  Left = 131
  Top = 90
  Width = 780
  Height = 587
  Caption = 'Examples Delphi component TscExcelExport'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  DesignSize = (
    772
    560)
  PixelsPerInch = 96
  TextHeight = 13
  object LabelHeaderFont: TLabel
    Left = 10
    Top = 470
    Width = 123
    Height = 24
    Caption = 'HeaderFont'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object LabelTitleFont: TLabel
    Left = 10
    Top = 492
    Width = 72
    Height = 20
    Caption = 'TitleFont'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 216
    Top = 88
    Width = 548
    Height = 446
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object PanelSubTitle: TPanel
    Left = 7
    Top = 48
    Width = 757
    Height = 28
    Anchors = [akLeft, akTop, akRight]
    BevelWidth = 3
    Caption = 'Exporting datasets (or data) to MS Excel'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object BitBtnExportDataset: TBitBtn
    Left = 8
    Top = 88
    Width = 200
    Height = 28
    Caption = 'Export dataset'
    TabOrder = 2
    OnClick = BitBtnExportDatasetClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 541
    Width = 772
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object BitBtnSaveXLS: TBitBtn
    Left = 8
    Top = 184
    Width = 200
    Height = 28
    Caption = 'Save as XLS'
    TabOrder = 4
    OnClick = BitBtnSaveXLSClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555550000000000000550330000007703055033000000770305503300000077
      0305503300000000030550333333333333055033000000003305503077777777
      0305503077777777030550307777777703055030777777770305503077777777
      0005503077777777070550000000000000055555555555555555}
  end
  object BitBtnPrintPreview: TBitBtn
    Left = 8
    Top = 216
    Width = 200
    Height = 28
    Caption = 'Print preview'
    TabOrder = 5
    OnClick = BitBtnPrintPreviewClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333300
      33333333333334EC0333330000004ECC003333077774ECC77033330FFF4ECC7F
      70333300087CC7FF7033307E70887FFF70330FE7E707FFFF70330EFE7E07FFFF
      70330FEFE707FFFF703330FEF07FFFFF7033330807FFFFFF7033330FFFFFFF00
      0033330FFFFFFF7F0333330FFFFFFF7033333300000000033333}
  end
  object BitBtnExportPropeties: TBitBtn
    Left = 8
    Top = 120
    Width = 200
    Height = 28
    Caption = 'Export dataset / layout && summaries'
    TabOrder = 6
    OnClick = BitBtnExportPropetiesClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object BitBtnExportConnectTo: TBitBtn
    Left = 8
    Top = 248
    Width = 200
    Height = 28
    Caption = 'Exporting using ConnectTo'
    TabOrder = 7
    OnClick = BitBtnExportConnectToClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object PanelTitle: TPanel
    Left = 7
    Top = 8
    Width = 757
    Height = 36
    Anchors = [akLeft, akTop, akRight]
    BevelWidth = 3
    Caption = 'TscExcelExport (Stefan Cruysberghs)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object BitBtnExportDatasetColors: TBitBtn
    Left = 8
    Top = 152
    Width = 200
    Height = 28
    Caption = 'Export dataset / background colors'
    TabOrder = 9
    OnClick = BitBtnExportDatasetColorsClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object BitBtnExportEvents: TBitBtn
    Left = 8
    Top = 392
    Width = 200
    Height = 28
    Caption = 'Export data using events'
    TabOrder = 10
    OnClick = BitBtnExportEventsClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object BitBtnExportExistingFile: TBitBtn
    Left = 8
    Top = 280
    Width = 200
    Height = 28
    Caption = 'Export to existing file'
    TabOrder = 11
    OnClick = BitBtnExportExistingFileClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object BitBtnCloseAll: TBitBtn
    Left = 8
    Top = 432
    Width = 200
    Height = 28
    Caption = 'Close all Excel Applications'
    TabOrder = 12
    OnClick = BitBtnCloseAllClick
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC00000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      777770000000777777777777777770000000777777777777770F700000007777
      0F777777777770000000777000F7777770F770000000777000F777770F777000
      00007777000F77700F777000000077777000F700F7777000000077777700000F
      7777700000007777777000F777777000000077777700000F7777700000007777
      7000F70F7777700000007770000F77700F7770000000770000F7777700F77000
      00007700F7777777700F70000000777777777777777770000000777777777777
      777770000000}
  end
  object BitBtnExportGroups: TBitBtn
    Left = 8
    Top = 312
    Width = 200
    Height = 28
    Caption = 'Export using grouping'
    TabOrder = 13
    OnClick = BitBtnExportGroupsClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object BitBtnAccessingExcel: TBitBtn