[ExcelVBA] GetObject関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
GetObject([pathname] [, class])

■説明
ファイルから取得した ActiveX オブジェクトへの参照を返します。
第一引数：(省略可能)取得するオブジェクトが含まれているファイルの絶対パスとファイル名を指定します。
第二引数：(省略可能)オブジェクトのクラスを表す文字列を指定します。
注：
第一引数を省略する場合、第二引数を必ず必要とします。
第二引数を省略する場合、第一引数を必ず必要とします。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     '起動済みのWordアプリのオブジェクトを取得して  
5.     '「あいうえお」と書き込む場合  
6.           
7.     Dim objWord As Object  
8.     Set objWord = GetObject(, "Word.Application")  
9.     objWord.Selection.typetext Text:="あいうえお"  
10.     Set objWord = Nothing  
11. End Sub  

Option Explicit

Sub SampleCode()
    '起動済みのWordアプリのオブジェクトを取得して
    '「あいうえお」と書き込む場合
        
    Dim objWord As Object
    Set objWord = GetObject(, "Word.Application")
    objWord.Selection.typetext Text:="あいうえお"
    Set objWord = Nothing
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧