用VB编写的一个脚本，如何检查一个excel文件是否已经打开并在不保存的情况下关闭它。

Option Explicit

Sub CheckAndCloseExcelFile()
    Dim filePath As String
    Dim excelApp As Object
    Dim excelWorkbook As Object
    
    ' 设置要检查的Excel文件路径
    filePath = "C:\path\to\your\excel\file.xlsx"
    
    ' 检查Excel文件是否已经打开
    On Error Resume Next
    Set excelApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    If Not excelApp Is Nothing Then
        ' 遍历所有打开的工作簿，查找目标文件
        For Each excelWorkbook In excelApp.Workbooks
            If excelWorkbook.FullName = filePath Then
                ' 关闭目标文件并不保存
                excelWorkbook.Close SaveChanges:=False
                Exit For
            End If
        Next excelWorkbook
        
        ' 释放对象引用
        Set excelWorkbook = Nothing
        Set excelApp = Nothing
        
        MsgBox "Excel文件已关闭。"
    Else
        MsgBox "Excel文件未打开。"
    End If
End Sub