スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●

ExcelシートをAccessテーブルにリンクさせます。
TableDefオブジェクトのConnectプロパティでリンク先のデータベース(この場合はExcelファイル)を指定し、SourceTableNameプロパティでリンク先のテーブル(この場合はExcelシート)を指定します。
ここではExcelファイル「都道府県.xls」の「sheet1」をAccessファイル「Northwnd.mdb」にリンクさせています。


● サンプルプログラム ●

Private Sub LinkExcel_DAO()

  Dim DB As Database
  Dim rst As Recordset
  Dim tblExcel As TableDef
   
  Set DB = OpenDatabase("D:\NorthWind.mdb")
  Set tblExcel = DB.CreateTableDef("linked excel worksheet")
 
 'EXCELのファイル名とシート名を指定
  tblExcel.Connect = "excel 8.0;" & "database=d:\都道府県.xls"
  tblExcel.SourceTableName = "sheet1$"
  DB.TableDefs.Append tblExcel
 
  DB.Close
  
  Set rst = Nothing
  Set tblExcel = Nothing
  Set DB = Nothing
  
End Sub


● 動作確認 ●

Accessファイル「Northwnd.mdb」にリンクテーブル「linked excel worksheet」が作成されていることを確認してください。