使用Interop后释放Excel

Question

我读过很多帖子来寻找答案，但都与此类似： 在 vb.net 中读取 excel 文件会使 excel 进程挂起< /a>

我的问题是我不退出应用程序...

想法是这样的：

如果用户打开了 Excel，如果他打开了我感兴趣的文件...获取该 Excel 实例并执行任何操作我想做...

但完成后我不会关闭他的文件...我希望他继续工作，问题是当他关闭 Excel 时...该进程仍在运行..并运行...并在用户使用 X 按钮关闭 Excel 后运行...

这就是我尝试执行的操作

这一部分用于了解他是否打开了 Excel，并在 For I 检查文件名我感兴趣。

    Try
        oApp = GetObject(, "Excel.Application")
        libroAbierto = True
        For Each libro As Microsoft.Office.Interop.Excel.Workbook In oApp.Workbooks
            If libro.Name = EquipoASeccionIdSeccion.Text & ".xlsm" Then
                Exit Try
            End If
        Next
        libroAbierto = False
    Catch ex As Exception
        oApp = New Microsoft.Office.Interop.Excel.Application
    End Try

这是我的代码...如果他没有打开 Excel，我会创建一个新实例，打开文件和其他所有内容。

我的代码以此结尾：

If Not libroAbierto Then
        libroSeccion.Close(SaveChanges:=True)
        oApp.Quit()
    Else
        oApp.UserControl = True
        libroSeccion.Save()
    End If    
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(libroOriginal)
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(libroSeccion)
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(origen)
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(copiada)
    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(oApp)
    libroOriginal = Nothing
    libroSeccion = Nothing
    oApp = Nothing
    origen = Nothing
    copiada = Nothing
    nuevosGuardados = True

所以你可以看到，如果我打开文件，我会调用 oApp.Quit() 以及其他所有内容，并且 Excel 进程会在几秒钟（大约 5 秒）后结束。

但是如果我的意思是用户保持文件打开（不调用 Quit()），Excel 进程在用户使用 X 按钮关闭 Excel 后继续运行。

有什么办法可以做我想做的事吗？控制打开的 Excel 实例并释放所有内容，以便当用户使用 X 按钮关闭它时，Excel 进程会正常终止？？？

谢谢！！！

Answer 1

在我看来，最好使用 CreateObject 而不是 GetObject(, "Excel.Application") （请参阅 http://support.microsoft.com/kb/288902/en 和 http://technet.microsoft.com/en-us/library/ee176980.aspx）。然后在调用 FinalReleaseComObject 和 allocateinh 之前调用 Quit 方法，什么都不会有清晰的感觉。