制御 既に開かれているブックがあれば閉じる

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][制御 既に開かれているブックがあれば閉じる]

Sub OpenExcelCount()
Dim I, ThisName As String, A As Boolean
A = False
ThisName = ThisWorkbook.Name
If Workbooks.Count <> 1 Then
MsgBox "既に開かれているブックが  " & Workbooks.Count - 1 & " 個あります。" & vbCr & vbCr & "閉じてから実行してください。", vbCritical, ThisName
A = True
For Each I In Workbooks
If ThisName <> I.Name Then
    MsgBox I.Name & "を閉じてください。", vbCritical, ThisName
End If
Next

End If

If A = True Then
MsgBox "一旦" & ThisWorkbook.Name & "を閉じます。", vbCritical, ThisWorkbook.Name
ThisWorkbook.Close
End If
End Sub





Production Japan Import Application. Since 1998