CreaOggetto

Crea e restituisce un riferimento a un oggetto Automation.

Struttura

CreateObject(nome_server.tipo [, posizione])

Parametri

nome del server - obbligatorio. Il nome dell'applicazione che fornisce l'oggetto.

typename - obbligatorio. Il tipo o la classe dell'oggetto da creare.

posizione - facoltativo. Il nome del server di rete su cui deve essere creato l'oggetto.

Descrizione

I server di automazione forniscono almeno un tipo di oggetto. Ad esempio, un'applicazione di elaborazione testi può fornire un oggetto applicazione, un oggetto documento e un oggetto barra degli strumenti.

Esempio

Per creare un oggetto Automation, assegnare l'oggetto restituito dalla funzione CreateObject a una variabile oggetto. Questo codice avvia l'applicazione che crea l'oggetto (in questo caso, un foglio di calcolo di Microsoft Excel). Una volta creato un oggetto, fai riferimento ad esso nel codice utilizzando la variabile oggetto che hai definito. Come illustrato nell'esempio seguente, è possibile accedere alle proprietà e ai metodi del nuovo oggetto utilizzando la variabile oggetto ExcelSheet e altri oggetti Excel, tra cui l'oggetto Application e la raccolta ActiveSheet.Cells:

Dim ExcelSheet

Set ExcelSheet = CreateObject("Excel.Sheet")

' Rendi visibile Excel tramite l'oggetto Application.

ExcelSheet.Application.Visible = True

Inserisci del testo nella prima cella del foglio.

ExcelSheet.ActiveSheet.Cells(1,1).Value = "Questa è la colonna A, riga 1"

' Salva il foglio.

ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"

Chiudi Excel utilizzando il metodo Quit dell'oggetto Application.

ExcelSheet.Application.Chiudi

' Liberare la variabile oggetto.

Imposta ExcelSheet = Nothing

La creazione di un oggetto su un server remoto è possibile solo se la sicurezza Internet è disattivata. È possibile creare un oggetto su un computer remoto collegato in rete passando il nome del computer all'argomento servername della funzione CreateObject. Quel nome corrisponde alla parte del nome della condivisione che indica il nome del computer. Per una risorsa di rete denominata «\myserver\public», il nome del server è «myserver». Inoltre, è possibile specificare il nome del server utilizzando il formato DNS o un indirizzo IP.

Il codice seguente restituisce il numero di versione di un'istanza di Excel in esecuzione su un computer di rete remoto denominato «myserver»:

Funzione GetVersion

Dim XLApp

Set XLApp = CreateObject("Excel.Application", "MyServer")

GetVersion = XLApp.Version

End Function

Si verifica un errore se il server remoto specificato non esiste o non viene trovato. |