[[20201212092653]]　『中断モードでコードを実行することはできません』（さゆり）　ページの最後に飛ぶ

『中断モードでコードを実行することはできません』（さゆり）

こんにちわ。下記のマクロを「F8」ステップを実行するとファイルは開くのですが同時に「中断モードでコードを実行することはできません」というメッセージがでます。

マクロの停止ボタン「■」を押して、マクロを再実行しても同じメッセージがでます。
メッセージがでないようにするにはどうしたらよいですか。
教えて下さい。よろしくお願いします。

Sub ファイルを開く()

  Dim 呼出ファイル名  As String, 保管場所  As String

       Sheets("マクロ２").Select

      保管場所 = Worksheets("マクロ２").Range("M33")
      呼出ファイル名 = Worksheets("マクロ２").Range("M34")

'ファイルを開く

      Workbooks.Open Filename:=保管場所 & "\" & 呼出ファイル名

End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

さゆりです。付け加えます。
ファイルの呼び出し処理やデータ削除などのコマンドを下記のように記入して一連のマクロを作成します。
「処理」マクロを実行すると「中断モードでコードを実行することはできません」というメッセージがでます。

Sub 処理()

      Call ファイルを開く
      ファイル名取得 = ActiveWorkbook.Name      'ファイル名の取得

    'データの削除
      Worksheets("Sheet1").Range("I28:I35").ClearContents

     Call ファイルを読み取り専用で開く

     読み取り専用ファイル名取得 = ActiveWorkbook.Name      'ファイル名の取得

End Sub

（さゆり） 2020/12/12(土) 09:42

回答ではありません。
私もステップ実行するとそのメッセージ出ます。ただ、ガン無視して進めるとちゃんと動作するので気にしないことにしています。

ちなみに、ExcelVBAの世界では、ブックやシート（オブジェクトといいます）をちゃんと指定すれば、いちいちアクティブにしたり選択したりする必要はありませんし、最初に提示されたコードはそれをしているので「マクロ２」を選択する意味はないです。

    Sub 処理_改()
        Dim MySH As Worksheet
        Dim ファイル名取得  As String

        With Sheets("マクロ２")
            Set MySH = Workbooks.Open(Filename:=.Range("M33").Value & "\" & .Range("M34").Value).Worksheets("Sheet1")
        End With

        MySH.Range("I28:I35").ClearContents
        ファイル名取得 = MySH.Parent.Name

    End Sub

（もこな２） 2020/12/12(土) 11:49

もこな２さん　回答ありがとうございます。了解しました。ご教授ありがとうございます。
（さゆり） 2020/12/13(日) 00:22

コメント返信：

[ 一覧(最新更新順) ]

[[20201212092653]] 『中断モードでコードを実行することはできません』（さゆり） ページの最後に飛ぶ

[[20201212092653]]　『中断モードでコードを実行することはできません』（さゆり）　ページの最後に飛ぶ