LSet

---

Setステートメント

構文

Set objectvar = {[New] objectexpression|Nothing}

objectvarには、オブジェクトへの参照を代入する変数またはプロパティを指定します。

Newは省略可能です。クラスの新しいインスタンスを作成します。

objectexpressionには、オブジェクト名を指定します。

キーワードNothingを指定すると、objectvarの参照を解放します。

解説

オブジェクトへの参照を、変数またはプロパティに代入します。

サンプル

次の例は、変数xlにMicrosoft Wordへの参照を代入します。

Sub Sample()
    Dim wdApp As Object
    Set wdApp = CreateObject("Word.Application.8")
    MsgBox wdApp.Version
    wdApp.Quit
    Set wdApp = Nothing
End Sub