Excel2016のVBAで複数bookを開いている際に画面の表示が切り替わらない、不具合修正依頼

Question

windows10 pro 64bit CU(1703) Excel2016 32bit　

booka.xlsm　マクロ用

bookb.xlsx　データ用

の環境で、

1.bookaからVBAでbookbを開く

2.bookbのデータを処理し、bookaにコピーする

3.処理完了時bookaを表示し、操作出来るようにする

ということが出来ません。

Sub ボタン1_Click()

  On Error GoTo openbook:

Loop1:

    Windows("bookb.xlsx").Activate

  On Error GoTo 0

  bookb処理

  Windows("booka.xlsm").Activate

   booka処理

    With Application

    .Calculation = xlAutomatic

    .ScreenUpdating = True

  End With

  Exit Sub

openbook:

  Application.DisplayAlerts = False

    Workbooks.Open Filename:="d:\bookb.xlsx"

  Application.DisplayAlerts = True

  GoTo Loop1:

End Sub

windows7 32bit+Excel2010 32bitの環境では正常に動作しました。

End WithとExitSubの間に下記の対応をしても効果がありませんでした。

１　windowの最小化、最大化を順番を工夫して行う

     Application.Windows(booka.xlsm).WindowState = xlMinimized

     Application.Windows(bookb.xlsx).WindowState = xlMinimized

     Application.Windows(bookb.xlsx).WindowState = xlMaximized

     Application.Windows(booka.xlsm).WindowState = xlMaximized

→bookaが後ろに隠れてしまい、bookbが表示される

2. Application.Windows(booka.xlsm).activateを追加

　なぜかbookbがアクティブのまま（VBAでbookaは操作出来るがユーザから見ると非アクティブ）

activateが効かないのは不具合だと思いますので、MS担当者様は修正をお願い致します。

Answer 1

ありがとうございます。

MSDNのほうにスレッドを作成したのでこちらはクローズします。

https://social.msdn.microsoft.com/Forums/ja-JP/29301aa8-bf6f-4e2e-af2d-24f3ef8cf442/excel2016vbabook?forum=vbajp

Answer 2

​haWR さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

投稿いただいた動作について何か情報がないか調べてみたのですがが、ご紹介できそうな有力な情報を見つけることができませんでした。

VBA が関連するような場合、一般向けのこのマイクロソフト コミュニティでは該当するカテゴリーがないためコメントが寄せられにくいかもしれません。

今回の内容であれば、開発者の方々が多く利用されている MSDN フォーラムの VBA のカテゴリに投稿して、Excel 2016 の問題なのか VBA の問題なのかアドバイスや情報を集めてみてはいかがでしょうか。

◆MSDN フォーラム - Visual Basic for Application(VBA)

よければそちらも利用してみてくださいね。