11fg012a

Projectl - Microsoft Visual Basic [break]

a

E7

Run Tools Ądd-lns Help

M =n=

w

W

Ld

T_

<Tś rr

Ci n

L.^1 1030,1030 T-I , ~ I ~ I ~

I i!...! 6810 x 4635 ? -I fh-, J Tfc *

Cl

Forml

Object:

H0H
Form	Proc: Load	▼

1

_2_

_5_

_6_

_7_

_?_

JO

JJ

12

Private Sub Forrci_Load()

¹ Get a reference to the Excel application.

Set objExcel = CreateObject("Excel.Application"]

¹ Display Excel

objExcel.Visible = True

¹ Create a new workfoook

objExcel. DJorkbooks. Add

¹ Insert sorcie values

For i = 1 To 10

objExcel.ActiyeCell.VALUE = i

objExcel.ActiveCell.Next.Activate

Next End Sub

13

14

15

16

17		LlI_I _lE	-
u | <| >| n[\Sheet1/ Shee?2 / Sheet3 / Sheet4 / Sheet5 / Sheet6 / Sheet7 / | < |			i d_r
Ready		I [Sum=0	NUM
£1 Start | Jij Exploring - C:V..| Projectl -Mic...| & Collage Captu...| 11fg012a.pcx... | 22 Microsoft Exc... |			11:09 AM