GetObject関数

GetObject関数とは、オートメーション機能を用いて、作成済みのファイルを利用しオブジェクトを操作する関数です。この関数を用いると、作成済みのファイルを自在に操作することが可能になります。しかし、引数PathNameを長さ 0 の文字列 ("") にすることで、新しいオブジェクトインスタンスを作成できるので、CreateObject関数と同じような使い方も可能です。サンプルファイルをご利用の場合、事前にExcelファイル「出席簿」を作成し、Cドライブに保存して下さい。

• 書式

GetObject([pathname] [, class])

• 引数

引数の設定値

• 引数class

代表的なクラスとアプリケーション名

関連項目

1. CreateObjectメソッド
2. Shell関数
3. DDEInitiate関数

事例 ) 作成済みのExcelシートに「出席簿」テーブルレコードの値を全てを書き出す

作成済みのExcelシートに「出席簿」テーブルレコードの値を全てを書き出します。

1. 非連結フォームを作成します。
2. 実行するコマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを以下のように作成します。

Private Sub 実行_Click()

   On Error GoTo エラー

   Dim Myxl As Object
   Set Myxl = GetObject("C:\出席簿.xls", "Excel.Sheet")

   Dim intNo As Integer
   Dim CN As New ADODB.Connection
   Dim RS As New ADODB.Recordset
   Set CN = CurrentProject.Connection
   RS.Open "出席簿", CN, adOpenKeyset, adLockOptimistic

   Myxl.Application.Visible = True
   Myxl.Parent.Windows(1).Visible = True '--- A

   Do Until RS.EOF
      intNo = intNo + 1
      Myxl.Application.Cells(intNo, 1).Value = RS!ID
      Myxl.Application.Cells(intNo, 2).Value = RS!生徒名
      Myxl.Application.Cells(intNo, 3).Value = RS!出席日数
      RS.MoveNext
   Loop

   Myxl.Application.Quit '--- B

   RS.Close
   Set RS = Nothing
   CN.Close
   Set CN = Nothing
   Set Myxl = Nothing

   Exit Sub

エラー:

   MsgBox Err.Number & " : " & Err.Description
   Exit Sub

End Sub

解説

1. Excelをアクティブにします。Windows(1) は、常にアクティブ ウィンドウです。
2. Application オブジェクトの Quit メソッドで Excel を終了します。

動作確認

1. フォームをビューモードで開きます。
2. [実行] ボタンをクリックします。

3. 「出席簿」テーブルのレコードがC:\出席簿.xlsに書き込まれます。