制御 既に開かれているブックを検索する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][制御 既に開かれているブックを検索する]

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





Production Japan Import Application. Since 1998