、これは動作しません

Question

Access.Applicationオブジェクトを使用することはできません。

Sub X() 
    Dim A As Access.Application 
    Set A = CreateObject("Access.Application") 
    'Do Stuff 
End Sub 

しかし、これが作業を行います。

Sub X() 
    Dim A As Object 
    Set A = CreateObject("Access.Application") 
    'Do Stuff 
End Sub 

私は、彼らはほぼ同じことを行う知っているが、誰もが言うことができます私はどのようにaccess.applicationオブジェクトを作るのですか？私はCrystal Reports 11を持っていると付け加えておいてください。最後のアップグレードでは、いくつかのVBA DLLが「登録解除」されている可能性があります。

（2009-06-29更新）

最初の2つの質問を受けて、私は& Excelファイルいくつかの他のアクセスを制御するためのMS Access VBAを使用しています。これはローカルマシン上でのみ実行されるため、常にAccessがインストールされることを保証できます。私は "Microsoft Access 11.0 Object Library"（MSACC.OLB）も参照しています。

私はこれを回避する方法があることを知っています。つまり、コードを書くときに早期バインディングを使用し、実行時に後でバインディングに切り替えると、なぜ私のマシン上で早期バインディング方法が全く機能しないのか理解できません、コードは正常にAccessを持つ別のマシンで動作します）。

Answer 1

こんにちは、
あなたが言うコードは有効ではありません。あなたはどんなエラーを出していますか？それはいつ起こるのですか？あなたはコードの行を知っていますか？ただ、サイドノートとして、これは同様に法的な構文である

：

Dim accApp As Access.Application 
    Set accApp = New Access.Application 

しかし、明確にするために、CreateObjectのシンタックスは、問題の原因合法ではありません。

Answer 2

これをAccessで記述する場合は、Applicationオブジェクトが既に存在するため、これを行う必要はありません。これをExcelまたはWordで作成する場合は、アクセスライブラリへの参照を追加する必要があります。ツール/リファレンスに移動し、Microsoft Access XXオブジェクトライブラリを探します。

Answer 3

MS Accessの[ヘルプ]メニューから[検出と修復]を実行してください。私にとって完璧に働いた。