Excel VBAを使用してアクセスデータベースを照会する

Question

Excel VBAを使用してMS Accessデータベースを照会し、検索してテーブルに追加したいと考えています。それは、サブまたは関数が

は誰もが持っている機能のOpenDatabase（）のために定義されていないことを言うので動作しません

Dim dbs As DAO.Database 

Dim dbs As Object 
Set dbs = OpenDatabase("FILEPATH\database1.accdb") 


dbs.Execute "INSERT INTO Table1(ID, Field1, Field2, Field3) VALUES('1','Hello','Helo','Hi')" 

：このサイトを検索することにより

私はこのコードを見つけましたこのより良い方法

データベースとスプレッドシートが既に存在し（私の雇用主によって実行されている）、リンクしたいだけなので、より良い方法があることを知っているときにこれを実行したい理由です。

Answer 1

（もちろん、正しいFILEPATHで）これを試してみてください：

Dim appAccess As Object: Set appAccess = CreateObject("Access.Application") 
    appAccess.OpenCurrentDatabase ("FILEPATH\database1.accdb") 
    appAccess.CurrentProject.Connection.Execute "INSERT INTO Table1(ID, Field1, Field2, Field3) VALUES('1','Hello','Helo','Hi')" 
    Set appAccess = Nothing