VBAのGetObject関数の使用方法を教えてください。

VBでは、GetObject関数によりファイルからオブジェクトを取得できます。構文は以下の通りです。

GetObject(クラス, [サーバー名])

ここで、classは必須のパラメータであり、取得したいオブジェクトのクラス名またはファイル名を指定します。servernameはオプションのパラメータで、オブジェクトが配置されているネットワークサーバーの名前を指定します。

GetObject 関数の戻り値は取得されたオブジェクトを表す Variant 型になります。

たとえば、下記コードではGetObject関数を使用して、Excelアプリケーションオブジェクトを取得します。

Dim objExcel As Object
Set objExcel = GetObject(“Excel.Application”)

上記コードは、実行済みの Excel アプリケーションインスタンスを開き、そのインスタンスを変数 objExcel に代入します。

GetObject 関数で指定されたオブジェクトが見つからない場合はエラーになるので、GetObject 関数を使用する前に On Error Resume Next ステートメントを使用し、エラー発生を防ぐようにしましょう。例：

エラーが発生した場合、次のコードを実行します。
Dim objWord As Object
Set objWord = GetObject(“Word.Application”)
If Err.Number <> 0 Then
‘エラー処理のコード
MsgBox “Wordアプリケーションが見つかりません”
End If