AccessのVBAから、Excelをオブジェクトとしhttp://felix-labo.org/?AccessとExcel/AccessからExcelをオブジェクトとして取得て取得する

インポート・エクスポートだけですまない処理をAccess側でしたいときにはExcelオブジェクトを取得できれば便利! ファイルを開いている場合に指定できるfunction
Function getExcelWorkbook(workbook_name As String) As Workbook
On Error GoTo error1


   Dim e1 As Excel.Application
   Set e1 = GetObject(, "Excel.Application")

   Set getExcelWorkbook = e1.Workbooks(workbook_name)

   Exit Function


error1:

   MsgBox "エラー:ファイル名は正しいですか? もしくはファイルがひらかれていますか?"
   Exit Function


End Function
取得するときには、set をつかって
Set t = getExcelWorkbook("test.xls")
FullPathを使うとエラー。dir で取得した名前はそのまま使えるかな・・・