Access2013からVBAでExcelを開く

Question

お世話になります。

会社のOfficeが2003から2013になり、Access2003でフォームのコマンドボタンにセットしてあったExcelファイルを開くVBAを変更する必要があります。

VBAは転用専門のド素人なのですが、具体的にどこをどの様に書き直せばよいのでしょう？ご教示頂きたく、よろしくお願い致します。

Private Sub タリフ_Click()

On Error GoTo Err_タリフ_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")

oApp.Visible = True

'Only XL 97 supports UserControl Property

On Error Resume Next

oApp.UserControl = True

oApp.Workbooks.Open Filename:="\svfile1\タリフ\tariff.xls"

Exit_タリフ_Click:

Exit Sub

Err_KBタリフ_Click:

MsgBox Err.Description

Resume Exit_タリフ_Click

End Sub

Answer 1

こんばんは、ずっちです。

私の検証環境、Win8.1+Office2013 では、問題なく動きました。

少なくとも提示されたVBAは、「On Error GoTo Err_タリフ_Click」さえ正しく書けば問題はないです。

具体的には「On Error GoTo Err_KBタリフ_Click」と書き直しました。

何を懸念されているかいまいちピンときませんが、

実際新しい環境で動かしてみて、問題個所のみ直したほうが作業も少なく済むと思います。

Answer 2

ずっち様

お騒がせして申し訳ありません。

結果からすると問題なく開きました。

今日、新環境が手元に揃い試してみました。

お手間を取らせて申し訳ありませんでした。

Answer 3

ずっち様

書き込みありがとうございます。

すみません、用件が書き足りませんでした。

WindowsもXPから７に変わっているんです。Officeじゃなくてこちらが主用件ですかね。

アプリケーションのファイルのパス？構成？が変わっていて、既存のVBAではExcelが起動しない、

と聞きました。

Answer 4

こんにちは、ずっちです。

Acc2013で試してみました。

xlsファイルのパスはデスクトップのファイルに変更しました。

「Err_タリフ_Click」って行ラベルがない！ってエラーが出ますが、

たぶん書き間違いでしょうから無視^^;

それ以外に関しては問題なく動作しました。

「変更する必要がある」と書かれていますが、何かエラーが出ているんでしょうか。

エラーが出る場合はどの行でどんなエラーが出るか書いてください。

返事お待ちしてます。