CreateObject Function
Creates and returns a reference to an Automation object.
CreateObject(servername.typename [,
location])
Arguments
servername
Required. The name of the application providing the object.
typename
Required.The type or class of the object to create.
location
Optional. The name of the network server where the object is to
be created.
Remarks
Automation servers provide at least one type of object. For example, a
word-processing application may provide an application object, a document
object, and a toolbar object.
To create an Automation object, assign the object returned by
CreateObject to an object variable: Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
This code starts the application that creates the object (in this case, a
Microsoft Excel spreadsheet). Once an object is created, refer to it in code
using the object variable you defined. As shown in the following example, you
can access properties and methods of the new object using the object variable,
ExcelSheet, and other Excel objects, including the Application
object and the ActiveSheet.Cells collection: ' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
Creating an object on a remote server can only be accomplished when Internet
security is turned off. You can create an object on a remote networked computer
by passing the name of the computer to the servername argument of
CreateObject. That name is the same as the machine name portion of a
sharename. For a network share named "\\myserver\public", the servername
is "myserver". In addition, you can specify servername using DNS format
or an IP address.
The following code returns the version number of an instance of Excel running
on a remote network computer named "myserver": Function GetVersion
Dim XLApp
Set XLApp = CreateObject("Excel.Application", "MyServer")
GetVersion = XLApp.Version
End Function
An error occurs if the specified remote server does not exist or cannot be
found.
|