制御 既に開かれているブックを検索する
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub OpenExcelCount() Dim I, ThisName As String ThisName = ThisWorkbook.Name If Workbooks.Count <> 1 Then MsgBox "既に開かれているブックが " & Workbooks.Count - 1 & " 個あります。" & vbCr & vbCr & "閉じてから実行してください。", vbCritical, ThisName For Each I In Workbooks If ThisName <> I.Name Then MsgBox I.Name & "を閉じてください。", vbCritical, ThisName End If Next End If End Sub |