質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.50%

  • VBA

    1802questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1539questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

マクロで別をマクロを操作した後、元のマクロに戻りたい

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 351

3109

score 64

ExcelのVBAで第三者の作成したExcelのマクロを操作するマクロを作成しています。

操作したいワークブックのVBEにはパスワードがかかっていますが、
プロシージャーはPublicになっているので、
Application.Runメソッドで操作することまではできました。

ところがApplication.Runメソッドを使うと、
操作した側の元のマクロがアクティブではなくなってしまうのか、
そこで処理が止まってしまい、
ActiveWorkbook.SaveCopyAs以降の記述が処理されません

同作業を複数のワークブックに対し繰り返し処理させたいので、
ここで終了しては意味がないのです。

問題のある箇所を分解し抽出した文が以下となります。

Sub test()

    Workbooks.Open ("フルパス\操作したいファイル.xls")

    Application.Run "'操作したいファイル.xls'!マクロ名"

    ActiveWorkbook.SaveCopyAs "フルパス\操作したいファイル2.xls"

    ActiveWorkbook.Close (False)

End Sub


4行目からActiveWorkbookとしているのは、
操作したマクロが自身のワークブック名を「Book*」と
新しくするためです。

3行目を「'Application.Run…」とコメントアウトすると
保存もクローズもされるので、
原因は操作の主導権(?)が
被操作側のワークブックに移ったせいではないかと推察しています。
どうしたら思い通りの処理を実現できるでしょうか?

皆様のお知恵を借りたく存じます。
よろしくお願いします。

環境:Windows 7, Excel 2010

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

+2

ステップ実行しても
ActiveWorkbook.SaveCopyAs "フルパス\操作したいファイル2.xls"
が実行されないということなら、
Application.Run "'操作したいファイル.xls'!マクロ名"
の内部に End ステートメントが記述されている可能性が大きいです。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/05/05 09:31

    iruyas様。

    いただいたアドバイスに従い
    ステップ実行を行ったところ、
    Application.Runを通った後はプロシージャの文頭に戻り、
    ActiveWorkbook.SaveCopyAs以降は実行されませんでした。

    別のマクロブックに差し替えて試したところ、
    保存もクローズも実行されました。
    さらにそのマクロにEndステートメントを追加したところ、
    同様の症状で停止しましたので、
    iruyas様のご指摘の通り
    今回扱ったマクロにEndステートメントが記述されている
    可能性が高いと思われます。

    今回の問題は
    ・私のApplication.Runメソッドの認識ミス
    ・多角的な検証の不足
    ・単体のEndステートメントの存在を知らなかった
    ことにあります。


    本当に助かりました。
    的確な回答をいただき、ありがとうございました!

    キャンセル

+1

当方でサンプルを作成して、提示のコードで実験してみましたが、
Application.Run以降のコードも問題なく実行されました。
ちなみに、Application.Runで呼び出すマクロは、セルに単純に現在時刻を入力するものにしました。

3行目を「'Application.Run…」とコメントアウトすると
保存もクローズもされるので、
原因は操作の主導権(?)が
被操作側のワークブックに移ったせいではないかと推察しています。

Application.Runで実行されるマクロに原因があると推測します。
マクロのコードを提示できませんか。
あるいは、再現できる条件(マクロ、設定など)を提示できませんか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/05/05 09:08 編集

    hatena19様。

    私がApplication.Runメソッドを誤って理解していたようで、
    対象のマクロブックを差し替えて原因を探るという方法に
    考えが至っておりませんでした。

    私も自作のマクロを対象にして検証してみたところ、
    問題なく実行されました。

    さらに他の回答者様からヒントをいただき、
    そのマクロにEndステートメントを追加して試してみたところ、
    件のステップで停止しましたので、
    原因は操作しようとするマクロに
    Endステートメントが含まれている可能性が高いようです。

    > Application.Runで実行されるマクロに原因があると推測します。
    > マクロのコードを提示できませんか。
    > あるいは、再現できる条件(マクロ、設定など)を提示できませんか。

    問題のマクロを提示して解決法をご教示いただきたいのですが、
    パスワードがかかっているため叶いません。
    ご理解ください。
    (ちなみに処理内容は自身のマクロの削除です。)


    ご協力いただき、ありがとうございました!

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.50%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBA

    1802questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1539questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。