アクセスからエクセルマクロを実行したいのですが実行できません。

Question

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:="C:\Users\ayuhou\Documents\鮎匠.xls"        

    oApp.range("A1") = "ヤマメ"      

    oApp.objXL.Application.Run (鮎匠.xls & "!" & マクロ実行)

　アクセスコマンドボタンを押してエクセルファイルを開きセルＡ1に文字入力後にエクセルの「マクロ実行」マクロを実行したいのですが、最後の行書き方を教えて下さい。

Answer 1

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

コーディングして実行の際、正常に動作しない場合は、

On Error Resume Next などをはずしてデバッグしてみましょう。

手が空いたので実際に試してみました。

まず、「objXL」は不要でした。（On Error...を外すと実行時エラー438）

次に、ファイル名はシングルクォーテーションでくくる必要があるようでした。

なので...

oApp.Application.Run ("'鮎匠.xls'!マクロ実行")

で動くと思います。

Answer 2

ずっち様ありがとうございました。

実行できました。

わざわざ試していただき本当にありがとうございました。

Answer 3

ずっちさん返信ありがとうございます。

やってみましたができませんでした。

マクロ実行は変数ではなくマクロ名になります。

ネットで調べ「Ｐｕｂｌｉｃ　ｓｕｂ　マクロ実行（）」もやってみましたができませんでした。

何か解りましたらよろしくお願いします。

Answer 4

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

使ったこと無いので、ハズレてたらごめんなさい。

http://officetanaka.net/excel/vba/tips/tips09.htm

上記のページではファイルパスは文字列になっています。

「マクロ実行」って変数が無く、Excelに「マクロ実行」ってプロシージャがあるのであれば、

oApp.objXL.Application.Run ("鮎匠.xls!マクロ実行")

「マクロ実行」って変数があるのであれば、

oApp.objXL.Application.Run ("鮎匠.xls!" & マクロ実行)

になるのかな？