VBA数据录入应用中关联Excel工作簿无法单独关闭问题求助

我完全理解你这三天的困扰——用VBA打开的关联Excel文件没法单独关闭，只能跟着主数据录入应用一起退出，这确实太影响使用体验了。咱们先理清问题根源，再给你具体的修复方案。

问题原因 #

你当前用Workbooks.Open方法打开文件时，默认是在**当前Excel实例（也就是你的数据录入应用所在的进程）**中加载这些工作簿。这就导致所有打开的文件和主应用共享同一个Excel进程，所以单独关闭单个文件时，进程本身还会因为主应用的运行而保持活跃，只有关闭主应用时，整个进程结束，所有关联文件才会一同关闭。

修复方案：用独立Excel实例打开文件 #

核心思路是创建新的Excel应用实例，让每个关联文件在独立的进程中打开，这样就能单独关闭它们，不会和主应用绑定。

修改步骤 #

你代码里有两处Workbooks.Open的调用，分别对应Searchdata和Database工作表的分支，把这两处都替换成下面的代码逻辑：

' 创建新的Excel应用实例
Dim newExcelApp As Excel.Application
Set newExcelApp = New Excel.Application
' 让新实例的窗口可见
newExcelApp.Visible = True

' 在新实例中打开目标工作簿
Dim targetWB As Workbook
Set targetWB = newExcelApp.Workbooks.Open(.Cells(ttt, 12))

完整修改后的代码 #

Private Sub cmbfichedevie_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Database")
    Set shsearch = ThisWorkbook.Sheets("Searchdata")
    Dim iRow As Long
    Dim iRowsearchdat As Long
    Dim ttt As Long
    
    With shsearch
        ttt = Selected_list + 1
        iRowsearchdata = [Counta(Searchdata!A:A)]
        If iRowsearchdata > 1 Then
            If Selected_list >= iRowsearchdata Or Selected_list = 0 Then
                MsgBox "Aucun élément n'est sélectionné.", vbOKOnly + vbInformation, "Ouvrir"
            Else
                If shsearch.Cells(ttt, 12) = "" Or shsearch.Cells(ttt, 12) = "No file" Then
                    MsgBox "Il n'y a aucune fiche de vie pour cet article.", vbOKOnly + vbInformation, "Ouvrir"
                Else
                    ' 替换原Workbooks.Open逻辑，用独立实例打开
                    Dim newExcelApp1 As Excel.Application
                    Dim targetWB1 As Workbook
                    Set newExcelApp1 = New Excel.Application
                    newExcelApp1.Visible = True
                    Set targetWB1 = newExcelApp1.Workbooks.Open(shsearch.Cells(ttt, 12))
                End If
            End If
            Exit Sub
        Else
            With sh
                ttt = Selected_list + 1
                iRow = [Counta(Database!A:A)]
                If Selected_list >= iRow Or Selected_list = 0 Then
                    MsgBox "Aucun élément n'est sélectionné.", vbOKOnly + vbInformation, "Ouvrir"
                Else
                    If sh.Cells(ttt, 12) = "" Or sh.Cells(ttt, 12) = "No file" Then
                        MsgBox "Il n'y a aucune fiche de vie pour cet article.", vbOKOnly + vbInformation, "Ouvrir"
                    Else
                        ' 替换原Workbooks.Open逻辑，用独立实例打开
                        Dim newExcelApp2 As Excel.Application
                        Dim targetWB2 As Workbook
                        Set newExcelApp2 = New Excel.Application
                        newExcelApp2.Visible = True
                        Set targetWB2 = newExcelApp2.Workbooks.Open(sh.Cells(ttt, 12))
                    End If
                End If
            End With
        End If
    End With
End Sub

额外注意事项 #

• 如果后续需要对打开的工作簿进行编辑操作，记得保留targetWB的引用，操作完成后可以用targetWB.Close和newExcelApp.Quit手动释放资源，避免残留后台Excel进程。
• 确保你的VBA项目已经引用了Microsoft Excel xx.x Object Library（一般默认已引用，若报错可在「工具」→「引用」中勾选）。

这样修改后，每个关联文件都会在独立的Excel窗口中打开，你可以单独关闭任意一个文件，完全不会影响主数据录入应用的运行。

内容的提问来源于stack exchange，提问作者Mondher Benabid