none
Excel2013のプログラミングについて RRS feed

  • 質問

  • Excel2010までは問題のなかった内容です。

    たとえばBook1から、Book2を開きます。

    その際にBook1からBook2を開くフォームを出し、Book2を開きます。

    その後開いたBook2のリボン部分の操作ができません。またブックを閉じるボタンもクリックできません。

    一度Book1をマウスでクリック後にBook2に戻ると操作できるようになります。

    どうしてでしょうか?

    ※Book2を開くコード

    Private Sub CommandButton1_Click()
    Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
    Unload Me
    End Sub

    2013年2月18日 5:39

すべての返信

  • どうしてかは解りませんが、

    Application.ActiveWindow.Caption

    Application.ActiveWorkbook.Name
    等を
    Debug.Print
    して比較すると何かわかるかもしれません。
    2013年2月19日 7:54
  • Excel2013ではWordの様に複数のファイルを開いた場合別々のウィンドウで開かれるようになりました。
    その関係の弊害かなと思います。

    ファイルを開く前にUnloadすれば問題ないようです。

    Private Sub CommandButton1_Click()
     Unload Me
     Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
    End Sub


    プログラム上先にUnloadするのが問題あれば、Hideで非表示にして後でUnloadすればいけそうです。

    Private Sub CommandButton1_Click()
    UserForm1.Hide
    Workbooks.Open ThisWorkbook.Path & "\Book2.xls"
    Unload Me
    End Sub

    • 回答の候補に設定 hihijiji 2014年6月30日 10:30
    2013年3月22日 23:43