mainexcelexport.dfm

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

    Left = 8
    Top = 352
    Width = 200
    Height = 28
    Caption = 'Accessing Excel worksheet'
    TabOrder = 14
    OnClick = BitBtnAccessingExcelClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A22222222222
      2222222222222222222222FFFFFFFFFFFF2222FFFFFFF727272222F2727272F2
      722222F727272F272F2222F27272F2727F2222FF272F27272F2222FFF2F2727F
      FF2222FF2F272727FF2222F2F27272727F2222F72727F7272F2222F2727FFF72
      7F2222FFFFFFFFFFFF2222222222222222222222222222222222}
  end
  object TableOrders: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'orders.db'
    Left = 3
    Top = 516
    object TableOrdersOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object TableOrdersCustNo: TFloatField
      FieldName = 'CustNo'
      Required = True
    end
    object TableOrdersSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object TableOrdersShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object TableOrdersEmpNo: TIntegerField
      FieldName = 'EmpNo'
      Required = True
    end
    object TableOrdersShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object TableOrdersShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object TableOrdersShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object TableOrdersShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object TableOrdersShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object TableOrdersShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object TableOrdersShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object TableOrdersShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object TableOrdersShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object TableOrdersPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object TableOrdersTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object TableOrdersPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object TableOrdersItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object TableOrdersTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object TableOrdersFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object TableOrdersAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
  end
  object DataSource1: TDataSource
    DataSet = TableOrders
    Left = 120
    Top = 516
  end
  object TableAnimals: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 31
    Top = 516
  end
  object TableVendors: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'vendors.db'
    Left = 59
    Top = 516
  end
  object scExcelExport1: TscExcelExport
    DataPipe = dpDataSet
    Filename = 
      'C:\Documents and Settings\stefancr\Mijn documenten\Werkblad\Prog' +
      'ramma'#39's.xls'
    StyleColumnWidth = cwDefault
    ColumnWidth = 0
    FontHeader.Charset = DEFAULT_CHARSET
    FontHeader.Color = clWindowText
    FontHeader.Height = -11
    FontHeader.Name = 'MS Sans Serif'
    FontHeader.Style = []
    FontHeader.Alignment = haGeneral
    FontHeader.WrapText = False
    FontHeader.Orientation = 0
    HeaderText.Strings = (
      '123'
      '456')
    ShowTitles = False
    FontTitles.Charset = DEFAULT_CHARSET
    FontTitles.Color = clWindowText
    FontTitles.Height = -11
    FontTitles.Name = 'MS Sans Serif'
    FontTitles.Style = []
    FontTitles.Alignment = haGeneral
    FontTitles.WrapText = False
    FontTitles.Orientation = 0
    BorderTitles.BackColor = clYellow
    BorderTitles.BorderColor = clGreen
    BorderTitles.LineStyle = blDash
    FontData.Charset = DEFAULT_CHARSET
    FontData.Color = clWindowText
    FontData.Height = -11
    FontData.Name = 'MS Sans Serif'
    FontData.Style = []
    FontData.Alignment = haGeneral
    FontData.WrapText = False
    FontData.Orientation = 0
    FontSummary.Charset = DEFAULT_CHARSET
    FontSummary.Color = clWindowText
    FontSummary.Height = -11
    FontSummary.Name = 'MS Sans Serif'
    FontSummary.Style = []
    FontSummary.Alignment = haGeneral
    FontSummary.WrapText = False
    FontSummary.Orientation = 0
    SummarySelection = ssNone
    SummaryCalculation = scSUM
    FontFooter.Charset = DEFAULT_CHARSET
    FontFooter.Color = clWindowText
    FontFooter.Height = -11
    FontFooter.Name = 'MS Sans Serif'
    FontFooter.Style = []
    FontFooter.Alignment = haGeneral
    FontFooter.WrapText = False
    FontFooter.Orientation = 0
    BorderFooter.BackColor = clBlack
    BorderFooter.Weight = bwHairline
    BorderFooter.LineStyle = blContinuous
    FontGroup.Charset = DEFAULT_CHARSET
    FontGroup.Color = clMaroon
    FontGroup.Height = -13
    FontGroup.Name = 'MS Sans Serif'
    FontGroup.Style = [fsBold]
    FontGroup.Alignment = haGeneral
    FontGroup.WrapText = False
    FontGroup.Orientation = 0
    BorderGroup.BackColor = clYellow
    BorderGroup.BorderColor = clMaroon
    BorderGroup.Weight = bwThick
    BorderGroup.LineStyle = blDouble
    GroupOptions.ClearContents = True
    GroupOptions.BorderRange = bsRow
    GroupOptions.IntervalFontSize = 2
    BeginRowHeader = 10
    BeginRowTitles = 12
    BeginRowData = 1
    OnExportRecords = scExcelExport1ExportRecords
    Left = 154
    Top = 516
  end
  object scExcelExport2: TscExcelExport
    DataPipe = dpCustom
    StyleColumnWidth = cwDefault
    ColumnWidth = 0
    FontHeader.Charset = DEFAULT_CHARSET
    FontHeader.Color = clWindowText
    FontHeader.Height = -11
    FontHeader.Name = 'MS Sans Serif'
    FontHeader.Style = []
    FontHeader.Alignment = haGeneral
    FontHeader.WrapText = False
    FontHeader.Orientation = 0
    FontTitles.Charset = DEFAULT_CHARSET
    FontTitles.Color = clWindowText
    FontTitles.Height = -11
    FontTitles.Name = 'MS Sans Serif'
    FontTitles.Style = []
    FontTitles.Alignment = haGeneral
    FontTitles.WrapText = False
    FontTitles.Orientation = 0
    FontData.Charset = DEFAULT_CHARSET
    FontData.Color = clWindowText
    FontData.Height = -11
    FontData.Name = 'MS Sans Serif'
    FontData.Style = []
    FontData.Alignment = haGeneral
    FontData.WrapText = False
    FontData.Orientation = 0
    FontSummary.Charset = DEFAULT_CHARSET
    FontSummary.Color = clWindowText
    FontSummary.Height = -11
    FontSummary.Name = 'MS Sans Serif'
    FontSummary.Style = []
    FontSummary.Alignment = haGeneral
    FontSummary.WrapText = False
    FontSummary.Orientation = 0
    SummarySelection = ssNone
    SummaryCalculation = scSUM
    FontFooter.Charset = DEFAULT_CHARSET
    FontFooter.Color = clWindowText
    FontFooter.Height = -11
    FontFooter.Name = 'MS Sans Serif'
    FontFooter.Style = []
    FontFooter.Alignment = haGeneral
    FontFooter.WrapText = False
    FontFooter.Orientation = 0
    BorderFooter.BackColor = clBlack
    BorderFooter.Weight = bwHairline
    BorderFooter.LineStyle = blContinuous
    FontGroup.Charset = DEFAULT_CHARSET
    FontGroup.Color = clWindowText
    FontGroup.Height = -11
    FontGroup.Name = 'MS Sans Serif'
    FontGroup.Style = []
    FontGroup.Alignment = haGeneral
    FontGroup.WrapText = False
    FontGroup.Orientation = 0
    BorderGroup.BackColor = clBlack
    BorderGroup.Weight = bwHairline
    BorderGroup.LineStyle = blContinuous
    GroupOptions.ClearContents = True
    GroupOptions.BorderRange = bsRow
    GroupOptions.IntervalFontSize = 2
    OnExportRecords = scExcelExport2ExportRecords
    OnGetFieldCount = scExcelExport2GetFieldCount
    OnGetFieldName = scExcelExport2GetFieldName
    OnGetFieldDisplayName = scExcelExport2GetFieldDisplayName
    OnGetFieldDataSize = scExcelExport2GetFieldDataSize
    OnGetFieldDataType = scExcelExport2GetFieldDataType
    OnGetFieldVisible = scExcelExport2GetFieldVisible
    OnGetEOF = scExcelExport2GetEOF
    OnGetFieldValue = scExcelExport2GetFieldValue
    OnGotoFirstRecord = scExcelExport2GotoFirstRecord
    OnGotoNextRecord = scExcelExport2GotoNextRecord
    Left = 182
    Top = 516
  end
  object QuerySortShipVia: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT ShipVia, Terms, OrderNo, CustNo, SaleDate'
      'FROM ORDERS'
      'WHERE OrderNo < 1050'
      'ORDER BY ShipVia, Terms, OrderNo')
    Left = 87
    Top = 516
  end
end