mainexcelexport.dfm

delphi实现EXCEL复杂导入导出功能的类

        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Use events'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelCloseExcel: TLabel
        Left = 42
        Top = 496
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Close all Excel apps'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelCloseExcelInfo: TLabel
        Left = 190
        Top = 496
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Close all active Excel applications'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelUseEventsInfo: TLabel
        Left = 190
        Top = 464
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Do not export a dataset, but export data using the events (OnGet' +
          'FieldName, OnGetFieldValue, ...)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelExcelVersion: TLabel
        Left = 42
        Top = 528
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Get Excel version'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelExcelVersionInfo: TLabel
        Left = 190
        Top = 528
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Get Excel Version (8=97, 9=2000, 10=XP, 11=2003)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelExportVisibleFields: TLabel
        Left = 42
        Top = 240
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Export visible fields'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelExportVisibleFieldsInfo: TLabel
        Left = 190
        Top = 240
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Only export the visible fields (ORDERS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BitBtnSimpleExport1: TBitBtn
        Left = 8
        Top = 8
        Width = 28
        Height = 28
        TabOrder = 0
        OnClick = BitBtnSimpleExport1Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FFFF800080FF800080FF800080FF8000
          80FF800080FF0000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FFFF800080FF800080FF8000
          80FF000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FF00FFFF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000FF000000FF000000FF000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000
          00FF008000FF00FF00FF000000FF000000000000000000000000000000000000
          000000000000000000FF008000FF008000FF008000FF008000FF000000FF0080
          00FF00FF00FF000000FF00000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF008000FF000000FF008000FF00FF
          00FF000000FF0000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF000000FF008000FF00FF00FF0000
          00FF000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF008000FF00FF00FF000000FF0080
          00FF000000FF0000000000000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF00FF00FF000000FF008000FF0080
          00FF008000FF000000FF00000000000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF00000000000000FF0000
          00FF000000FF000000FF00000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnExportLayout: TBitBtn
        Left = 8
        Top = 168
        Width = 28
        Height = 28
        TabOrder = 1
        OnClick = BitBtnExportLayoutClick
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FFFF800080FF800080FF800080FF8000
          80FF800080FF0000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FFFF800080FF800080FF8000
          80FF000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FF00FFFF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000FF000000FF000000FF000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000
          00FF008000FF00FF00FF000000FF000000000000000000000000000000000000
          000000000000000000FF008000FF008000FF008000FF008000FF000000FF0080
          00FF00FF00FF000000FF00000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF008000FF000000FF008000FF00FF
          00FF000000FF0000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF000000FF008000FF00FF00FF0000
          00FF000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF008000FF00FF00FF000000FF0080
          00FF000000FF0000000000000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF00FF00FF000000FF008000FF0080
          00FF008000FF000000FF00000000000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF00000000000000FF0000
          00FF000000FF000000FF00000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnSimpleExport3: TBitBtn
        Left = 8
        Top = 72
        Width = 28
        Height = 28
        TabOrder = 2
        OnClick = BitBtnSimpleExport3Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FFFF800080FF800080FF800080FF8000
          80FF800080FF0000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FFFF800080FF800080FF8000
          80FF000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FF00FFFF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000FF000000FF000000FF000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF000000FF000000FF0000
          00FF008000FF00FF00FF000000FF000000000000000000000000000000000000
          000000000000000000FF008000FF008000FF008000FF008000FF000000FF0080
          00FF00FF00FF000000FF00000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF008000FF000000FF008000FF00FF
          00FF000000FF0000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF000000FF008000FF00FF00FF0000
          00FF000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000FF008000FF00FF00FF000000FF0080
          00FF000000FF0000000000000000000000000000000000000000000000000000
          00000000000000000000000000FF008000FF00FF00FF000000FF008000FF0080
          00FF008000FF000000FF00000000000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF00000000000000FF0000
          00FF000000FF000000FF00000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtnSimpleExport2: TBitBtn
        Left = 8
        Top = 40
        Width = 28
        Height = 28
        TabOrder = 3
        OnClick = BitBtnSimpleExport2Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000800080FF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000FF00FFFF800080FF800080FF800080FF8000
          80FF800080FF0000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000FF00FFFF800080FF800080FF8000
          80FF000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000FF00FFFF800080FF0000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000FF000000FF000000FF000000000000000000000000000000000000
          000000000000000000FF000000FF000000FF000000FF000000