unit1.dfm

在 Delphi中调用 Excel ,实现对 Excel 的基本操作

object Form1: TForm1
  Left = -24
  Top = 311
  Width = 1028
  Height = 748
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 192
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 336
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object OleContainer1: TOleContainer
    Left = 0
    Top = 40
    Width = 937
    Height = 665
    AutoActivate = aaManual
    Caption = 'OleContainer1'
    SizeMode = smScale
    TabOrder = 2
  end
  object WordApplication1: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 784
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 744
  end
  object SaveDialog1: TSaveDialog
    Left = 688
    Top = 8
  end
  object WordApplication2: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 784
    Top = 8
  end
  object OpenDialog2: TOpenDialog
    Left = 744
  end
  object SaveDialog2: TSaveDialog
    Left = 688
    Top = 8
  end
  object WordApplication3: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 784
    Top = 8
  end
  object OpenDialog3: TOpenDialog
    Left = 744
  end
  object SaveDialog3: TSaveDialog
    Left = 688
    Top = 8
  end
  object WordApplication4: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 784
    Top = 8
  end
  object OpenDialog4: TOpenDialog
    Left = 744
  end
  object SaveDialog4: TSaveDialog
    Left = 688
    Top = 8
  end
  object OpenDialog5: TOpenDialog
    Left = 744
  end
  object SaveDialog5: TSaveDialog
    Left = 688
    Top = 8
  end
  object WordApplication5: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 784
    Top = 8
  end
  object WordApplication6: TWordApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 184
    Top = 104
  end
  object SaveDialog6: TSaveDialog
    Left = 72
    Top = 88
  end
  object OpenDialog6: TOpenDialog
    Left = 176
    Top = 152
  end
end