请问调用退出后不退出的应用程序

Question

调用退出后不退出的应用程序

嘿，伙计们，我有个小问题，我似乎搞不懂。我正在将DataGridView(它的内容)保存到XLS文件中。我没有问题这样做，但在我的任务经理，它仍然显示，它正在运行。我打电话给：

  xlApp.Application.Quit()

声明如下：

  Dim xlApp As New excel.Application

这似乎不起作用，但当我允许用户选择将其导出到Word文档时，这也是我退出的方式。我不知道我哪里出错了.。

这是我的完整代码

Imports Word = Microsoft.Office.Interop.Word Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    For x As Integer = 1 To 3500

        DataGridView1.Rows.Add(New Object() {"r" & x.ToString & "c1", "r" & x.ToString & "c2", "r" & x.ToString & "c3", "r" & x.ToString & "c4", "r" & x.ToString & "c5"})

    NextEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    exportToWord (DataGridView1)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click    Dim xlApp As New Excel.Application    Dim xlWorkBook As Excel.Workbook    Dim xlWorkSheet As Excel.Worksheet    'Dim misValue As Object = System.Reflection.Missing.Value

    xlWorkBook = xlApp.Workbooks.Add

    xlWorkSheet = DirectCast(xlWorkBook.Sheets("sheet1"), Excel.Worksheet)

    xlApp.Visible = True

    Dim headers = (From ch In DataGridView1.Columns _                  Let header = DirectCast(DirectCast(ch, DataGridViewColumn).HeaderCell, DataGridViewColumnHeaderCell) _                  Select header.Value).ToArray()

    Dim headerText() As String = Array.ConvertAll(headers, Function(v) v.ToString)

    Dim items() = (From r In DataGridView1.Rows _          Let row = DirectCast(r, DataGridViewRow) _

          Where Not row.IsNewRow _          Select (From cell In row.Cells _              Let c = DirectCast(cell, DataGridViewCell) _              Select c.Value).ToArray()).ToArray()

Answer 1

在我跟踪@SiddharthRout上面的评论之前，上述建议对我都没有用。“到今天为止，使用COM对象的正确方法是什么？"指出COM对象引用在调试器下保持活动状态。解决方法是从调用COM过程的过程中调用GC。对我起作用了。最后在一个TRY CATCH块中运行GC。抄录自：post by "Govert" on what is the right way to work with COM objects?using&nbsp;System;using&nbsp;System.Runtime.InteropServices;using&nbsp;Microsoft.Office.Interop.Excel;namespace&nbsp;TestCsCom{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class&nbsp;Program&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;static&nbsp;void&nbsp;Main(string[]&nbsp;args) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;NOTE:&nbsp;Don't&nbsp;call&nbsp;Excel&nbsp;objects&nbsp;in&nbsp;here...&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debugger&nbsp;would&nbsp;keep&nbsp;alive&nbsp;until&nbsp;end,&nbsp;preventing&nbsp;GC&nbsp;cleanup&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Call&nbsp;a&nbsp;separate&nbsp;function&nbsp;that&nbsp;talks&nbsp;to&nbsp;Excel &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DoTheWork(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;Now&nbsp;let&nbsp;the&nbsp;GC&nbsp;clean&nbsp;up&nbsp;(repeat,&nbsp;until&nbsp;no&nbsp;more) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GC.Collect(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GC.WaitForPendingFinalizers(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while&nbsp;(Marshal.AreComObjectsAvailableForCleanup()); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;static&nbsp;void&nbsp;DoTheWork() &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application&nbsp;app&nbsp;=&nbsp;new&nbsp;Application(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Workbook&nbsp;book&nbsp;=&nbsp;app.Workbooks.Add(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Worksheet&nbsp;worksheet&nbsp;=&nbsp;book.Worksheets["Sheet1"]; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;app.Visible&nbsp;=&nbsp;true; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;(int&nbsp;i&nbsp;=&nbsp;1;&nbsp;i&nbsp;<=&nbsp;10;&nbsp;i++)&nbsp;{ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;worksheet.Cells.Range["A"&nbsp;+&nbsp;i].Value&nbsp;=&nbsp;"Hello"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;book.Save(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;book.Close(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;app.Quit(); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//&nbsp;NOTE:&nbsp;No&nbsp;calls&nbsp;the&nbsp;Marshal.ReleaseComObject()&nbsp;are&nbsp;ever&nbsp;needed&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;}}

Answer 2

我曾多次使用此功能关闭脚本中的excel文档，同时隐藏、显示，现在关闭，如果它是唯一打开的工作簿，否则请关闭此工作表。这是我的Sub&nbsp;ExitWorkBook()Dim&nbsp;wb&nbsp;As&nbsp;WorkbookDim&nbsp;c&nbsp;As&nbsp;Integer &nbsp;&nbsp;&nbsp;&nbsp;c&nbsp;=&nbsp;0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;Each&nbsp;wb&nbsp;In&nbsp;Application.Workbooks &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;c&nbsp;=&nbsp;c&nbsp;+&nbsp;1 &nbsp;&nbsp;&nbsp;&nbsp;Next&nbsp;wb&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;c&nbsp;=&nbsp;1&nbsp;Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Quit&nbsp;&nbsp;&nbsp;'--Quit&nbsp;this&nbsp;worksheet&nbsp;but&nbsp;keep&nbsp;excel&nbsp;open. &nbsp;&nbsp;&nbsp;&nbsp;Else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Workbooks("(excel&nbsp;workbook&nbsp;name).xls").Close&nbsp;&nbsp;&nbsp;&nbsp;'--&nbsp;Close&nbsp;Excel &nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If'End&nbsp;Sub