Access MDBのテーブルを一括 Excel に落とすことは出来た。その内容を Excel で修正(追加を含む)して、戻したい。
ADO で 1件ずつ書き込むしかないかなぁ〜 できれば一括更新したいのだが...
今日は、Accessで(1)テーブルをクリアし、(2)インポートする マクロを作っておき、そのマクロを Excel から起動するようにしてみた。
- Sub レコード追加()
- Dim mbTitle As String
- Dim objAccess As Object
- Dim strSQL As String
- Dim mdbFullPath As String
- Dim mdbTable As String
- mbTitle = "レコード追加/" & ThisWorkbook.Name
- '接続先のファイル、レコード追加テーブル、追加元を指定
- mdbFullPath = ThisWorkbook.Path & "\工数解析.mdb"
- mdbTable = "T_品名区分コード対応表"
- BoolAns = clearMDBテーブル(mdbFullPath, mdbTable)
- Set objAccess = CreateObject("Access.Application")
- 'mdbを開く
- objAccess.OpenCurrentDatabase mdbFullPath
- objAccess.DoCmd.RunMacro ("M_品名区分コード対応表インポート")
- Set objAccess = Nothing
- End Sub
■ 試行結果