unit1.~dfm

search multi Excel and Output to BookXX.xls [Delphi]

object Form1: TForm1
  Left = 207
  Top = 130
  Hint = #26597#25214#20294#21069#30446#24405#21450#23376#30446#24405#20013'Excel'#25991#20214#25351#23450#20869#23481
  AlphaBlend = True
  AlphaBlendValue = 200
  BorderStyle = bsNone
  Caption = #26597#35810
  ClientHeight = 28
  ClientWidth = 187
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #21326#25991#20223#23435
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 14
  object SpeedButton2: TSpeedButton
    Left = 128
    Top = 2
    Width = 57
    Height = 23
    Caption = #26597
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton1: TSpeedButton
    Left = 168
    Top = -7
    Width = 16
    Height = 19
    Caption = 'x'
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '@Arial Unicode MS'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Button6: TButton
    Left = 199
    Top = 1
    Width = 89
    Height = 25
    Caption = #30830#35748#25991#20214
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
    OnClick = Button6Click
  end
  object Edit1: TEdit
    Left = 4
    Top = 4
    Width = 121
    Height = 20
    Hint = #26597#35810#20869#23481
    Color = clMoneyGreen
    Ctl3D = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ImeMode = imChinese
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnDblClick = FormDblClick
    OnKeyDown = Edit1KeyDown
  end
  object ListBox1: TListBox
    Left = 0
    Top = 30
    Width = 313
    Height = 121
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 14
    TabOrder = 2
  end
  object CheckBox1: TCheckBox
    Left = 132
    Top = 7
    Width = 13
    Height = 14
    Hint = #31934#30830#26597#25214
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckNewInstance
    AutoQuit = False
    Left = 16
    Top = 72
  end
  object book1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 48
    Top = 72
  end
  object sheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 80
    Top = 72
  end
  object book2: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 48
    Top = 104
  end
  object sheet2: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 80
    Top = 104
  end
  object OpenDialog1: TOpenDialog
    Left = 272
  end
  object ExcelApplication2: TExcelApplication
    AutoConnect = False
    ConnectKind = ckNewInstance
    AutoQuit = True
    Left = 16
    Top = 104
  end
end