CreateObject 関数

ActiveX オブジェクトへの参照を作成して返します。

構文

CreateObject ( class [, servername] )

CreateObject 関数の構文には、次の引数があります。

class 引数 には、構文 appname.objecttype が使用され、次の項目があります。

解説

オートメーションをサポートするすべてのアプリケーションで、少なくとも 1 種類のオブジェクトを提供します。 たとえば、ワード プロセッシング アプリケーションでは、アプリケーション オブジェクト、文書オブジェクト、およびツールバー オブジェクトを提供する場合があります。

ActiveX オブジェクトを作成するには、CreateObject によって返されたオブジェクトをオブジェクト変数に割り当てます。

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding. 
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

この例では、Access データベース内から Excel スプレッドシート オブジェクトを自動化します。 このコードでは、オブジェクト (この場合は Microsoft Excel スプレッドシート) を作成するアプリケーションを開始します。 オブジェクトが作成されたら、定義したオブジェクト変数を使用して、コード内でオブジェクトを参照します。 次の例では、オブジェクト変数、ExcelSheet、およびその他の Excel オブジェクト (Application オブジェクト、Cells コレクションなど) を使用して、新しいオブジェクトのプロパティおよびメソッドにアクセスします。

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

As Object 句を使用してオブジェクト変数を宣言すると、任意の種類のオブジェクトへの参照を含めることができる変数が作成されます。 ただし、その変数を介したオブジェクトへのアクセスは遅延バインドされます。つまり、バインドは、プログラムの実行時に発生します。 早期バインディング 、つまりプログラムのコンパイル時のバインドを行うオブジェクト変数を作成するには、特定のクラス ID を使用してオブジェクト変数を宣言します。 たとえば、次の Excel 参照を宣言して作成できます。

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

事前バインド変数を使用する参照は、パフォーマンスが向上する場合がありますが、宣言で指定したクラスの参照しか含めることができません。

CreateObject 関数によって返されるオブジェクトを、引数としてオブジェクトを必要とする関数に渡すことができます。 たとえば、次のコードでは、Excel.Application オブジェクトへの参照を作成して渡します。

Call MySub (CreateObject("Excel.Application"))

リモート ネットワーク コンピューター上にオブジェクトを作成するには、コンピューターの名前を CreateObject の servername 引数に渡します。 この名前は、共有名のコンピューター名部分と同じです。"\\MyServer\Public" という名前の共有の 場合、サーバー名 は "MyServer" です。

次のコードは、MyServer という名前のリモート コンピューターで実行されている Excel のインスタンスのバージョン番号を返します。

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

リモート サーバが存在しない場合、または使用できない場合は、実行時エラーが発生します。

オブジェクトが単一のインスタンスのオブジェクトとして登録されている場合は、CreateObject が実行される回数に関係なく、そのオブジェクトに 1 つのインスタンスのみが作成されます。