ACCESS2013のＶＢＡで、ＥＸＣＥＬを操作

質問

ご質問させて頂きます。

ACCESS2013のＶＢＡで、ＥＸＣＥＬを操作するために
下記のようにしています。

－－－－－－－
Dim oApp As Object
Dim oWkb As Object
Dim oWks As Object

Dim Rw As Integer
Dim SQL As String

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.DisplayAlerts = Flase '確認メッセージの非表示

↓↓↓オートメーションエラー
Set oWkb = oApp.Workbooks.Open(CurrentProject.Path & "\ひながた.xls")

－－－－－－－

上記のところでオートメーションエラーになってしまいます。

しかし私の端末ではエラーは出ません。

問題と思われるのは
エラーが出る人の端末は、
ＥＸＣＥＬが２０１０と２０１３と
２つのバージョンがインストールされていることです。

このようなことでエラーが出てしまうことはあるのでしょうか？

回答No.2

NotFound404 · ベストアンサー

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.DisplayAlerts = Flase '確認メッセージの非表示
↓↓↓オートメーションエラー
Set oWkb = oApp.Workbooks.Open(CurrentProject.Path & "\ひながた.xls")
を
Set oWkb = getobject(CurrentProject.Path & "\ひながた.xls")
Set oApp = oWkb.application
oApp.Visible = True
oApp.DisplayAlerts = Flase '確認メッセージの非表示
だとどうでしょ？
結果はご報告願います。
当方も複数バージョンの同居はしていません。

補足

レスが遅れまして大変に申し訳ございません。
ご回答ありがとうございます。

この症状が出ている端末が当方ではないため
なかなか確認できません。

後日確認して、ご報告致します。

回答No.1

shut0325

Access/Excelともに2010しか入れていないので、有効かどうかはわかりませんが、Excelのバージョンを指定してみてはどうでしょうか？

2010→14　2013→15だったと思います。

2010ならば、

Set oApp = CreateObject("Excel.Application.14")
といった感じです。

お礼

レスが遅れまして大変に申し訳ございません。
ご回答ありがとうございます。

確認しましたが
エラーはなくなりませんでした