セットアップ先のＰＣでエラー

質問

VB2005の初心者です。
VB2005でAccess2003を制御するプログラムを書いているのですが
Dim oAccess As Access.ApplicationClass
Dim strDir As String = Application.StartupPath
oAccess = CreateObject("Access.Application")
With oAccess
.Visible = False
.OpenAccessProject(strDir & "\Report.adp")
.DoCmd.OpenReport("r_EnvelopePrint", Access.AcView.acViewNormal)
.CloseCurrentDatabase()
.Quit()
End With
oAccess = Nothing

プログラムを書いているPCではうまく動くのですが、他のPCにインストールして動かすと
「System.InvalidCastException: 型 'System.__ComObject' の COM オブジェクトをクラス型 'Microsoft.Office.Interop.Access.ApplicationClass' にキャストできません。CLR に入り、IProvideClassInfo をサポートしていない COM コンポーネント、または登録された相互運用機能アセンブリを含まない COM コンポーネントは、__ComObject 型にラップされます。この型のインスタンスを他のクラスにキャストすることはできませんが、基になる COM コンポーネントがインターフェイスの IID の QueryInterface 呼び出しをサポートする場合は、インターフェイスにキャストすることができます。」
というようなエラーメッセージが出てうまく動きません。
もちろんインストール先のPCにもAccess2003は入っています。何が悪いのか見当が付かず困っています、何か良い解決方法があればお教え願えないでしょうか。

回答No.1

pen_pen_pen · ベストアンサー

oAccess = CreateObject("Access.Application")
でエラーが起きてると思います。

私はAccess2000しかなく分かりませんが
少なくともAccess2000では
Dim oAccess As Access.Application
と宣言するようです。

お礼

早速のご意見ありがとうございます。
>oAccess = CreateObject("Access.Application")
>でエラーが起きてると思います。
私もそうではないかと思っているのですが。

>Dim oAccess As Access.Application
>と宣言するようです。
これは宣言しているんですが・・・
プログラムを書いているPCではまともに動くんですよ・・・。

補足

すいません。ご指摘の通りでした。
>Dim oAccess As Access.Application
>と宣言するようです。
宣言しているつもりが
Dim oAccess As Access.ApplicationClass
と宣言していました。m(__)m
ありがとうございました。