How To Optimize OLE Server Instance Usage by Using GetObject

• The first determines the instance usage.
• The second optionally denotes the class of the desired object reference.

   GetObject([pathname][,class])
				

Back to the top

Steps to Create Example Program

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a command button (Command1) to Form1.
3. Add the following code to the Command1_Click event procedure:

      Sub Command1_Click ()
         Dim fResult As Integer
         fResult = SmartGetObject("Excel.Application")
      End Sub
   						

4. Add the following code:

      Function SmartGetObject (sClass As String) As Integer
         Dim oTmpObject As Object
   
         ' If Server running, oTmpObject refers to that instance.
         ' If Server not running Error 429 is generated.
         On Error Resume Next
         Set oTmpObject = GetObject(, sClass)
         ' oTmpObject is reference to new object.
         If Err = 429 Then
            ' Server not running, so create a new instance:
            Set oTmpObject = GetObject("", sClass)
            ' NOTE: for Excel, you can add the next line to view the object
            ' oTmpObject.Visible = True
         ElseIf Err > 0 Then
            MsgBox Error$
            SmartGetObject = False
            Exit Function
         End If
         SmartGetObject = True
      End Function
   						

5. Press the F5 key to run the program. Click the Command1 button.

Back to the top