CreateObject関数

CreateObject関数とは、オートメーション機能を用いて一時的なオブジェクトを作成する関数です。この関数を用いると、外部のアプリケーションを自在に操作することが可能になります。なお、既に作成済みのファイルを読み込ませるには、GetObject関数を使用します。

• 書式

CreateObject(class,[servername])

• 引数

引数の設定値

引数class

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

関連項目

1. GetObjectメソッド
2. Shell関数
3. DDEInitiateメソッド
4. Open（ADO）
5. MoveNext（ADO）

事例 ) Excelのシートに「売上管理」テーブルレコードを全て書き込む

Excelのシートに「売上管理」テーブルレコードを全て書き込みます。

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

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

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

Private Sub 実行_Click()

   On Error GoTo エラー

   Dim xl As Object
   Set xl = CreateObject("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

   xl.Application.Visible = True　'--- A

   Do Until RS.EOF
      intNo = intNo + 1
      xl.Application.Cells(intNo, 1).Value = RS!ID
      xl.Application.Cells(intNo, 2).Value = RS!取引先
      xl.Application.Cells(intNo, 3).Value = RS!売上金額 & "円"
      RS.MoveNext
   Loop

   xl.SaveAs "C:\売上管理.xls"　'--- B
   xl.Application.Quit　---E

   RS.Close: Set RS = Nothing
   CN.Close: Set CN = Nothing

   Set xl = Nothing

   Exit Sub

エラー:

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

End Sub

解説

1. Application オブジェクトからExcelのワークシートを表示します。既定値は非表示です。
2. ExcelワークシートをC:\売上管理.xls に保存します。

動作確認

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

3. 「売上管理」テーブルレコードが新しいExcelファイルに書き込まれ、C:\売上管理.xlsとして保存されます。