home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / excel / excel.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-10  |  1.9 KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form Excel 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "OLE Automation Demo"
  5.    ClientHeight    =   1185
  6.    ClientLeft      =   2085
  7.    ClientTop       =   2445
  8.    ClientWidth     =   3240
  9.    Height          =   1590
  10.    Left            =   2025
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1185
  15.    ScaleWidth      =   3240
  16.    Top             =   2100
  17.    Width           =   3360
  18.    Begin CommandButton cmdClose 
  19.       Caption         =   "Close Excel"
  20.       FontBold        =   0   'False
  21.       FontItalic      =   0   'False
  22.       FontName        =   "MS Sans Serif"
  23.       FontSize        =   8.25
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   375
  27.       Left            =   960
  28.       TabIndex        =   1
  29.       Top             =   600
  30.       Width           =   1200
  31.    End
  32.    Begin CommandButton cmsStart 
  33.       Caption         =   "Start Excel"
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   375
  41.       Left            =   960
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   1200
  45.    End
  46. Sub cmdClose_Click ()
  47.     'XL.Close
  48.     Set XL = Nothing
  49.     Set appXL = Nothing
  50.     Set zot = Nothing
  51.     Set zot1 = Nothing
  52.     Set zot2 = Nothing
  53.     Set zot3 = Nothing
  54.     Set zot4 = Nothing
  55.     Set zot5 = Nothing
  56.     Set ws = Nothing
  57.     Set sheet = Nothing
  58.     Set graphic = Nothing
  59. End Sub
  60. Sub cmsStart_Click ()
  61.     Set XL = CreateObject("Excel.Application.5")
  62.     Set appXL = XL.Application
  63.     appXL.WindowState = 3
  64.     appXL.WorkBooks.Add
  65. End Sub
  66.