名前の変わるブックをアクティブにしたい。

2つのブックが開いています。現在Activeなブック”aaa.xlsmのマクロに他の開いていない毎日日付が変わるごとに名前の変わるブック"aaa-20190101.xlsm"の名前を取得して、そちらをアクティブにするマクロをおしえてください。よろしくおねがいします。

質問者からの補足コメント

• windows10です

  No.2の回答に寄せられた補足コメントです。 補足日時：2019/01/03 06:28

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2019/01/01 17:54

「2つのブックが開いています」「他の開いていないブック」・・・日本語がおかしいような？「他のアクティブでないブック」で合ってますか？であれば、こんな感じです。

Sub sample()
Dim wb As Workbook
For Each wb In Workbooks
If ActiveWorkbook.Name <> wb.Name Then
wb.Activate
Exit For
End If
Next wb
End Sub

この回答へのお礼

おっしゃる通り、「他のアクティブでないブック」です。
やり方が分かりました。
ありがとうございました。

お礼日時：2019/01/03 06:32

No.2 回答者： nouble1 回答日時： 2019/01/01 18:19

OSの　ファイルシステムが、

違うので、

Macと、Windowsで、
対応が　変わります。


Windowsですか？