◆概要
このページは、Accessで既存のExcelファイルのデータを利用する方法について記載しています。

◆GetObjectメソッド

オートメーションの機能を利用して、あらかじめ作成されているファイルを利用して一時的なオブジェクトを作成し利用する場合は、GetObject関数を使用します。

「GetObject(ファイルパス名,クラス)」と記述し、引数は省略可能です。

Excelのシートを利用する場合は、「CreateObject("***.xls,"Sheet1")」のように記述します。

◆使用例
フォーム「売上」で入力した売上金額から、エクセルのファイルを利用して支店の売上順位を求めるコマンドボタン「売上順位」を作成します。

Private Sub 順位計算_Click()
   Dim st As Object

   ' Excelのファイルを参照する
   Set st = GetObject("c:\test.xls").Sheets!("順位")

   ' Excelのセルに値を代入する
   st.Cells(1, 1) = Val(Me!点数1)
   st.Cells(2, 1) = Val(Me!点数2)
   st.Cells(3, 1) = Val(Me!点数3)
   st.Cells(4, 1) = Val(Me!点数4)
   st.Cells(5, 1) = Val(Me!点数5)

   ' 再計算をする
   st.Calculate

   ' テキストボックスにExcelのセルの値を代入する
   Me!順位1 = st.Cells(1, 2)
   Me!順位2 = st.Cells(2, 2)
   Me!順位3 = st.Cells(3, 2)
   Me!順位4 = st.Cells(4, 2)
   Me!順位5 = st.Cells(5, 2)
End Sub