Computer Programming Concepts and Visual Basic David I. Schneider

386 Computer Programming Concepts and Visual Basic
objExcel.Application.Cells(4, 3).Value = “49”
places the number 49 into the cell in the fourth row and third column (that is, C4) of the
spreadsheet. Some other Excel statements are
objExcel.Application.Visible = True ‘Display spreadsheet
objExcel.Application.Cells(4, 3).Font.Bold = True ‘Make cell bold
objExcel.Application.Cells(7, 3).Formula = “=SUM(C1:C5)” ‘Specify that
‘cell C7 hold the sum of the numbers in cells C1 through C5
objExcel.Application.Quit ‘Exit Excel
With the Word object, the statement
objWord.Insert = “We’ll always have Paris.”
inserts the sentence into the document at the current insertion point. Some other Word statements
are
objWord.FileNewDefault ‘Create a new document based on
‘the Normal template
objWord.WordLeft ‘Move the insertion point left one word
‘(Counts period as a word.)
objWord.Bold ‘Change font to bold
objWord.FileSaveAs filespec ‘Save document with specified name
objWord.FilePrint ‘Print the current document
objWord.FileClose ‘Close the current document
OLE Automation involves the following four steps:
1. Declare an Object variable with a Dim statement.
2. Create an OLE Automation object with a CreateObject function and assign it to
the variable with a Set statement.
3. Transfer commands and/or data to the OLE Automation object to carry out the
desired task.
4. Close the object and assign the value Nothing to the Object variable.
EXAMPLE 1
The following program, which requires that Microsoft Excel be present in your computer, creates a
spreadsheet for college expenses and uses the spreadsheet to add up the values for the different categories.
The user should place numbers into the text boxes and then press the first command button to tabulate
total college expenses. This process can be repeated as many times as desired.
Object Property Setting
frm14_1_1 Caption College Expenses
lblTuitNFees Caption Tuition and Fees
txtTuitNFees Text blank)
lblBooksNSuppl Caption Books and Supplies
txtBooksNSuppl Text (blank)
lblBoard Caption Board
txtBoard Text (blank)
lblTransportation Caption Transportation
txtTransportation Text (blank)
lblOther Caption Other Expenses
txtOther Text (blank)
Line1
LblTotal Caption TOTAL:
LblHoldTotal Caption (blank)
CmdCalculate Caption &Calculate Total Expenses
CmdQuit Caption &Quit