Computer Programming Concepts and Visual Basic David I. Schneider

Dim objExcel As Object ‘In (Declarations) section of (General)
Private Sub cmdCalculate_Click()
Set objExcel = CreateObject(“Excel.Sheet”)
‘Make Excel visible objExcel.Application.Visible = True
‘Fill in Rows Values
objExcel.Application.Cells(1, 3).Value = txtTuitNFees.Text
objExcel.Application.Cells(2, 3).Value = txtBooksNSuppl.Text
objExcel.Application.Cells(3, 3).Value = txtBoard.Text
objExcel.Application.Cells(4, 3).Value = txtTransportation.Text
objExcel.Application.Cells(5, 3).Value = txtOther.Text
‘Set up a cell to total the expenses
objExcel.Application.Cells(6, 3).Formula = “=SUM(C1:C5)”
objExcel.Application.Cells(6, 3).Font.Bold = True
‘Set total as the contents of this cell
lblHoldTotal = objExcel.Application.Cells(6, 3).Value
‘Make Excel invisible
objExcel.Application.Visible = False
End Sub
Private Sub cmdQuit_Click()
‘Close Excel
objExcel.Application.Quit
‘Release the object variable
Set objExcel = Nothing
End
End Sub
[Run, place numbers into the text boxes, and click on the Calculate Total Expenses button. Note: If the
form is not visible, click on the College icon in the Window’s task bar at the bottom of the screen.]
EXAMPLE 2
The following program creates a Word document, prints the contents of the document, and saves the document
to a file.
Object Property Setting
frm14_1_2 Caption EXAMPLE 2
cmdCreate Caption &Create Word
Document
OLE 387