1

我在关闭 Excel 文件时遇到了一些问题。我正在做一个程序，它打开一些 Excel 文件，使用这些信息然后关闭它们。
我尝试了一些不同的代码，但它们没有工作，因为该EXCEL进程仍在运行。

我的第一个代码：

Dim aplicacaoexcel As New Excel.Application
Dim livroexcel As Object
Dim folhaexcel As Excel.Worksheet

livroexcel = aplicacaoexcel.Workbooks.Open("C:\Users\LPO1BRG\Desktop\Software Fiabilidade\Tecnicos.xlsx", UpdateLinks:=False, ReadOnly:=False, Password:="qmm7", WriteResPassword:="qmm7")
folhaexcel = livroexcel.sheets("Folha1")

aplicacaoexcel.DisplayAlerts = False
aplicacaoexcel.Visible = False
folhaexcel = Nothing
livroexcel.Close()
livroexcel = Nothing
aplicacaoexcel.Quit()
aplicacaoexcel = Nothing

然后我添加了这个：System.GC.Collect()但它仍然没有关闭 Excel 进程。

现在我正在尝试这个：

Dim process() As Process = system.Diagnostics.Process.GetProcessesByName("EXCEL")

For Each p As Process In process
   p.Kill()
Next

实际上，这个正在工作，但它关闭了所有 Excel 文件（即使是那些没有被我的程序打开的文件）。

我可以做些什么来关闭我的程序打开的 Excel 文件？:)

4

3 回答 3

1

释放Excel.ApplicationInterop COM 对象比其他 Office Interop 对象要复杂一些，因为有些对象是在您不知情的情况下创建的，并且必须在主应用程序真正关闭之前释放它们。

这些对象包括：

  • Excel.Application
  • Excel.Application.WorkBooks 集合
  • WorkBooks 集合打开了 WorkBook
  • 工作簿工作表集合
  • Sheets 集合引用的 Worksheet

这些对象必须全部释放才能终止 EXCEL 进程。

一个简单的解决方案是对所有 COM 对象使用显式声明/赋值：

Dim ExcelApplication As New Microsoft.Office.Interop.Excel.Application()
Dim ExcelWorkbooks As Workbooks = ExcelApplication.Workbooks
Dim MyWorkbook As Workbook = ExcelWorkbooks.Open("[WorkBookPath]", False)
Dim worksheets As Sheets = MyWorkbook.Worksheets
Dim MyWorksheet As Worksheet = CType(worksheets("Sheet1"), Worksheet)

完成后，将它们全部释放：

Imports System.Runtime.InteropServices

Marshal.ReleaseComObject(MyWorksheet)
Marshal.ReleaseComObject(worksheets)

MyWorkbook.Close(False)   '<= False if you don't want to save it!
Marshal.ReleaseComObject(MyWorkbook)

ExcelWorkbooks.Close()
Marshal.ReleaseComObject(ExcelWorkbooks)

ExcelApplication.Quit()
Marshal.FinalReleaseComObject(ExcelApplication)

Marshal.CleanupUnusedObjectsInCurrentContext()
于 2018-05-17T13:16:47.160 回答
0

尝试类似的东西workbook.Save，workbook.close

于 2018-05-17T10:39:06.653 回答
0

我对我的 VB 有点生疏，现在无法访问 Visual Studio 来测试它，但我会尝试从内存中编写代码。

您遇到的问题是，将对象设置为 Nothing 仍然会将对象分配在内存中，并且不会完全处理该对象。即使对象的 Close() 和 Quit() 方法仍将其分配在内存中，以防程序稍后需要再次访问它们。Kill() 方法之所以有效，是因为它只是终止了在内存中运行的 Excel 应用程序，该应用程序会关闭所有打开的 Excel 文档以及 COM 对象使用的文档。您要做的是处理您的应用程序正在使用的特定 COM 对象。

不过，请尝试在您的代码中进行此更改。

Dim aplicacaoexcel As New Excel.Application
Dim livroexcel As Object
Dim folhaexcel As Excel.Worksheet

livroexcel = aplicacaoexcel.Workbooks.Open("C:\Users\LPO1BRG\Desktop\Software Fiabilidade\Tecnicos.xlsx", UpdateLinks:=False, ReadOnly:=False, Password:="qmm7", WriteResPassword:="qmm7")
folhaexcel = livroexcel.sheets("Folha1")

aplicacaoexcel.DisplayAlerts = False
aplicacaoexcel.Visible = False

DisposeComObj(folhaexcel)
DisposeComObj(livroexcel)
DisposeComObj(aplicacaoexcel)

然后将以下内容也添加到您的应用程序中。

Private Sub DisposeComObj(ByRef Reference As Object)
    Try        
        Do Until _
        System.Runtime.InteropServices.Marshal.ReleaseComObject(Reference)<=0
        Loop
    Catch
    Finally
        Reference = Nothing
    End Try
End Sub

希望我的记忆对我有好处。我已经一年多没有用 VB 或 C# 写过任何代码了，感觉很不习惯。我只看到你的问题是因为我点击了错误的链接，并记得我在开始编程时曾经如何与垃圾收集作斗争。

于 2018-05-17T12:18:46.930 回答