Excelからのアクセスを開くVBA

Question

編集：この質問に対する回答は、受け入れられた回答のコメント内にあります。

私のExcelファイル内のボタンをクリックしてAccessデータベースを開こうとしています。私は現在このコードを持っています：

Private Sub bttnToAccess_Click() 

Dim db As Access.Application 

Set db = New Access.Application 
db.Application.Visible = True 
db.OpenCurrentDatabase "C:\Users\wcarrico\Desktop\wcarrico-CapstoneFinalSubmission.accdb" 

End Sub 

これは簡単に動作するように思われ、その後すぐにアクセスがシャットダウンします。重要な場合、Accessファイルには、開いたときにいくつかのテスト自体を実行するAutoExecマクロがあります。

Answer 1

アクセスアプリケーションを開こうとしないでください。データアクセステクノロジの1つ、すなわち - OLE-DBまたは - ODBCを使用して接続オブジェクトを作成するだけです。

Google「ODBC接続文字列」または「OLE-DB接続文字列」を使用して、特定の設定（およびアクセスファイルタイプ）に応じた詳細を取得します。

おそらく、ADODBはデータアクセスに使用する最も簡単な現在のライブラリです。

更新： が、その後データを使用してAccessからデータをインポートしてみ - >アクセスウィザードから。 Yuは常にあなたのためにいくつかのインフラストラクチャを作成する、あなたのためのいくつかのVBAコードを自動的に生成するためにマクロの記録機能を使用することができます。私は、VBAオブジェクトモデルの新しい部分を調べるときにこれを定期的に使用します。

アップデート - 変数がスコープの外に出るためかもしれ
以下のコメントから、問題の最終的解決、。関数外の宣言をモジュールレベルに移動する

Answer 2

コードが開始されました。オブジェクト変数に割り当てられたアプリケーションインスタンスを作成してアクセスしました。プロシージャの最後に、変数がスコープから外れてアクセスがシャットダウンしました。

Accessアプリケーションインスタンスのモジュールレベルの変数を使用する答えを受け入れました。その場合、Accessはプロシージャが終了した後も実行されたままです。ただし、ユーザーがExcelを終了すると、Accessも終了します。

アクセスを開始し、ユーザーが終了するまで実行し続けることを目標にしている場合は、アプリケーションインスタンスをオブジェクト変数（Set db = New Access.Application）に割り当てずにAccessを直接起動するだけです。そのdb変数は、Excelコードが他の目的に必要な場合に便利です。ただし、実際にはdbファイルを開くためにのみ使用されます。

WScript.ShellのRunメソッドを使用すると、Accessセッションでdbファイルを開くことができます。

Private Sub bttnToAccess_Click() 
    Const cstrDbFile As String = "C:\Users\wcarrico\Desktop\wcarrico-CapstoneFinalSubmission.accdb" 
    Dim objShell As Object 
    Set objShell = CreateObject("WScript.Shell") 
    objShell.Run cstrDbFile 
    Set objShell = Nothing 
End Sub 

Answer 3

私は、これは古いスレッドですけど、Accessデータベースを開こうとしているが、クリックした2つの特定の参照を持っていない場合は、Excel VBAでこのエラーを取得します。 （ツール、VBAエディタ画面の参照）。 「Microsoft Access 15.0 Object Library」と「Microsoft ActiveX Data Objects 6.1 Library」をクリックする必要があります。

Answer 4

New宣言が、それは