VBA窗体打开已占用文件时闪退，如何检测文件是否已打开？

当VBA窗体尝试打开已被其他进程打开的Excel文件时，会导致窗体和文件意外关闭。要解决这个问题，可以添加检测逻辑，在尝试读取文件前判断它是否处于打开状态，若已打开则提示用户先关闭目标文件。

实现步骤 #

1. 编写文件状态检测函数
   通过尝试以独占方式打开文件，利用错误捕获判断文件是否被占用：

Private Function IsFileOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    Dim errNum As Integer
    
    On Error Resume Next
    fileNum = FreeFile()
    ' 尝试以独占模式打开文件
    Open filePath For Input Lock Read As #fileNum
    Close fileNum
    errNum = Err.Number
    On Error GoTo 0
    
    ' 错误号70表示文件被其他进程占用
    IsFileOpen = (errNum = 70)
End Function

2. 修改按钮点击事件代码
   在获取选中文件路径后，先调用检测函数判断文件状态，再决定是否执行后续操作：

Private Sub buttonFilePicker_Click()
    Dim FileDialog As FileDialog
    Dim SelectedFile As String
    ' 创建文件选择对话框对象
    Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
    ' 设置对话框属性
    FileDialog.Title = "选择文件"
    FileDialog.Filters.Clear
    FileDialog.Filters.Add "Excel文件", "*.xlsx"
    ' 显示文件选择对话框
    If FileDialog.Show = -1 Then ' 用户选中了文件
        SelectedFile = FileDialog.selectedItems(1) ' 获取选中文件的路径
        
        ' 新增：检测文件是否已打开
        If IsFileOpen(SelectedFile) Then
            MsgBox "目标文件已打开，请先关闭该文件后再操作！", vbCritical, "错误提示"
            labelFileName.Caption = ""
            Exit Sub
        End If
        
        labelFileName.Caption = SelectedFile ' 在标签中显示文件路径
        ReadSheetsFromWorkbook (SelectedFile) ' 读取文件中的工作表列表
        comboYearList.Enabled = True
        lableYear.Enabled = True
        lblInstruct.Caption = "步骤3：选择工作表"
    Else
        MsgBox "未选择任何文件。", vbExclamation, "提示" ' 用户取消选择时的提示
    End If
    ' 释放对话框对象
    Set FileDialog = Nothing
End Sub

原理说明 #

• 检测函数IsFileOpen通过Open语句尝试以独占读取模式打开文件，如果文件已被其他程序（如Excel）占用，会触发错误号70的权限错误，据此判断文件处于打开状态。
• 在按钮事件中先执行检测，若文件已打开则弹出提示并终止后续流程，避免因强制打开导致的崩溃问题。

内容的提问来源于stack exchange，提问作者Seth Rainsdon