In diesem Beispiel wird die CreateObject-Funktion verwendet, um einen Verweis (xlApp) auf Microsoft Excel zu setzen. In dem Beispiel wird der Verweis verwendet, um auf die Visible-Eigenschaft von Microsoft Excel zuzugreifen, und anschließend wird Microsoft Excel mit seiner Quit-Methode beendet. Schließlich wird der Verweis selbst wieder freigegeben.
Dim xlAnw As Object ' Variable für Verweis deklarieren.
Set xlAnw = CreateObject("excel.application")
' Sie müssen die Visible-Eigenschaft auf True
' setzen, wenn die Anwendung angezeigt werden soll.
xlAnw.Visible = True
' Greifen sie auf die anderen Objekte von
' Microsoft Excel mit xlAnw zu.
xlAnw.Quit ' Wenn Sie fertig sind, beenden Sie die
' Anwendung mit der Quit-Methode, und geben Sie
Set xlAnw = Nothing ' dann den Verweis frei.