将Datagridview复制到excel - 使excel进程保持打开

时间:2016-02-16 16:58:56

标签: vb.net excel-interop

有人能指出在我的代码完成后导致excel进程保持打开的原因吗?

我已经研究过这个主题的所有内容,主要观点是避免使用excel互操作的3个点,但我相信我已经做到了,我仍然无法看到我在哪里出错了。

我的过程是将datagridview复制到剪贴板,然后将其粘贴到新创建的excel文件中,保存,关闭excel,然后为用户提供打开文件的选项。

两种情况。首先,当我浏览代码并且打开excel文件时,它会打开进程。其次,如果我打开工作簿然后关闭工作簿,它就不会让进程运行。我不明白其中的区别,因为在我尝试关闭并释放所有对excel的引用后,工作簿的打开就会发生。

    Private Sub CopyDGVtoClipBoard()
    Me.DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
    Me.DataGridView1.RowHeadersVisible = False
    Me.DataGridView1.SelectAll()
    Dim dataObj As DataObject = Me.DataGridView1.GetClipboardContent
    If dataObj IsNot Nothing Then
        Clipboard.SetDataObject(dataObj)
    End If
    Me.DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithAutoHeaderText
    Me.DataGridView1.RowHeadersVisible = True
    Me.DataGridView1.ClearSelection()
End Sub

Private Sub ExportToExcel()
    If Me.DataGridView1.Rows.Count < 1 Then Exit Sub
    CopyDGVtoClipBoard()             

    SaveFileDialog1.Filter = "Excel File|*.xlsx"
    SaveFileDialog1.Title = "Save In"
    SaveFileDialog1.FileName = "Generic name"

    If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            If SaveFileDialog1.FileName <> "" Then
            Dim xlExcel As excel.Application
            Dim xlWorkBooks As excel.Workbooks
            Dim xlWorkBook As excel.Workbook
            Dim xlWorkSheet As excel.Worksheet
            Dim CR As excel.Range
            Dim misValue As Object = System.Reflection.Missing.Value

            xlExcel = New excel.Application
            xlExcel.Visible = True
            xlWorkBooks = xlExcel.Workbooks
            xlWorkBook = xlWorkBooks.Add(misValue)
            xlWorkBook.Application.DisplayAlerts = False
            xlWorkSheet = xlWorkBook.ActiveSheet
            CR = xlWorkSheet.Cells(1, 1)
            CR.Select()
            xlWorkSheet.PasteSpecial(CR, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, True)
            xlWorkBook.SaveAs(SaveFileDialog1.FileName())
            xlWorkBook.Close(False)

            misValue = Nothing
            ReleaseExcel(CR)
            ReleaseExcel(xlWorkSheet)
            ReleaseExcel(xlWorkBook)
            ReleaseExcel(xlWorkBooks)
            xlExcel.Quit()
            ReleaseExcel(xlExcel)

            Dim OpenCheck As MsgBoxResult = MsgBox("Would you like to open the file?", MsgBoxStyle.YesNo, "Open File")
            Dim fPath As String = SaveFileDialog1.FileName
            If OpenCheck = MsgBoxResult.Yes Then
                Process.Start(fPath)
            End If
        End If
   End If

    Private Sub ReleaseExcel(ByVal O As Object)
    Do While System.Runtime.InteropServices.Marshal.ReleaseComObject(O) >= 0
        System.Runtime.InteropServices.Marshal.ReleaseComObject(O)
    Loop
    O = Nothing
End Sub

我已将问题缩小到以下代码。如果除了指定范围并添加数据之外我都会执行所有操作,它将关闭并结束该过程但是只要我引用CR = xlWorkSheet.Cells(1,1)就会挂起一个进程

            CR = xlWorkSheet.Cells(1, 1)
        CR.Select()
        xlWorkSheet.PasteSpecial(CR, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, True)

修改的 因此,我将我的代码与Karen发布的内容进行了比较,并对我的代码进行了一些细微的调整(完整代码加上下面列出的更改),但由于某种原因,它可以正常运行并且不会让进程保持打开状态!不确定如何,但我会接受它。

Private Sub CopyDGVtoClipBoard()
    Me.DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
    Me.DataGridView1.RowHeadersVisible = False
    Me.DataGridView1.SelectAll()
    Dim dataObj As DataObject = Me.DataGridView1.GetClipboardContent
    If dataObj IsNot Nothing Then
        Clipboard.SetDataObject(dataObj)
    End If
    Me.DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithAutoHeaderText
    Me.DataGridView1.RowHeadersVisible = True
    Me.DataGridView1.ClearSelection()
End Sub

Private Sub ExportToExcel()
    If Me.DataGridView1.Rows.Count < 1 Then Exit Sub
    CopyDGVtoClipBoard()

    Dim DateCon As DateTime = DateTime.ParseExact(Today.ToShortDateString, "M/d/yyyy", Nothing)


    SaveFileDialog1.Filter = "Excel File|*.xlsx"
    SaveFileDialog1.Title = "Save In"
    SaveFileDialog1.FileName = "Generic Name"

    If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        If SaveFileDialog1.FileName <> "" Then
            Dim xlExcel As excel.Application = Nothing
            Dim xlWorkBooks As excel.Workbooks = Nothing
            Dim xlWorkBook As excel.Workbook = Nothing
            Dim xlWorkSheet As excel.Worksheet = Nothing
            Dim CR As excel.Range = Nothing
            Dim misValue As Object = System.Reflection.Missing.Value

            xlExcel = New excel.Application
            xlExcel.Visible = False
            xlExcel.DisplayAlerts = False

            xlWorkBooks = xlExcel.Workbooks
            xlWorkBook = xlWorkBooks.Add(misValue)

            xlWorkSheet = xlWorkBook.ActiveSheet
            CR = xlWorkSheet.Range("A1")
            CR.PasteSpecial(excel.XlPasteType.xlPasteAll)
            CR.Select()
            xlWorkBook.SaveAs(SaveFileDialog1.FileName)
            Clipboard.Clear()

            ReleaseExcel(CR)
            CR = Nothing
            ReleaseExcel(xlWorkSheet)
            xlWorkSheet = Nothing
            xlWorkBook.Close(False)
            ReleaseExcel(xlWorkBook)
            xlWorkBook = Nothing
            ReleaseExcel(xlWorkBooks)
            xlWorkBooks = Nothing
            xlExcel.Quit()
            ReleaseExcel(xlExcel)
            xlExcel = Nothing

            Dim OpenCheck As MsgBoxResult = MsgBox("Would you like to open the file?", MsgBoxStyle.YesNo, "Open File")
            Dim fPath As String = SaveFileDialog1.FileName
            If OpenCheck = MsgBoxResult.Yes Then
                Process.Start(fPath)
            End If

        End If
    End If

End Sub

Private Sub ReleaseExcel(ByVal O As Object)
    Try
        Do Until System.Runtime.InteropServices.Marshal.FinalReleaseComObject(O) = 0
            System.Runtime.InteropServices.Marshal.FinalReleaseComObject(O)
        Loop
    Catch ex As Exception
    Finally
        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Try
End Sub

1 个答案:

答案 0 :(得分:1)

以下仅使用两个点。工作完成后,excel被妥善处理。

Option Strict On
Option Infer Off
Imports Excel = Microsoft.Office.Interop.Excel
Imports Microsoft.Office
Imports System.Runtime.InteropServices
Module Demo1
    Public Sub DoPaste()
        Dim FileName As String = IO.Path.Combine(Application.StartupPath, "SomeFile.xlsx")

        Dim SheetName As String = "Sheet1"

        Dim Proceed As Boolean = False
        Dim xlApp As Excel.Application = Nothing
        Dim xlWorkBooks As Excel.Workbooks = Nothing
        Dim xlWorkBook As Excel.Workbook = Nothing
        Dim xlWorkSheet As Excel.Worksheet = Nothing
        Dim xlWorkSheets As Excel.Sheets = Nothing
        Dim xlCells As Excel.Range = Nothing

        xlApp = New Excel.Application
        xlApp.DisplayAlerts = False
        xlWorkBooks = xlApp.Workbooks
        xlWorkBook = xlWorkBooks.Open(FileName)

        xlApp.Visible = False

        xlWorkSheets = xlWorkBook.Sheets

        For x As Integer = 1 To xlWorkSheets.Count
            xlWorkSheet = CType(xlWorkSheets(x), Excel.Worksheet)

            If xlWorkSheet.Name = SheetName Then

                Dim xlRange1 As Excel.Range = Nothing
                xlRange1 = xlWorkSheet.Range("A1:B6")
                xlRange1.Select()
                xlRange1.Copy()

                Dim xlDestination As Excel.Range = Nothing
                xlDestination = xlWorkSheet.Range("C1:D6")

                xlDestination.PasteSpecial(Excel.XlPasteType.xlPasteAll, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone)

                Marshal.FinalReleaseComObject(xlDestination)
                xlDestination = Nothing

                Marshal.FinalReleaseComObject(xlRange1)
                xlRange1 = Nothing

                xlWorkSheet.SaveAs(FileName)
                Marshal.FinalReleaseComObject(xlWorkSheet)
                xlWorkSheet = Nothing
                Exit For
            End If

        Next

        xlWorkBook.Close()
        xlApp.UserControl = True
        xlApp.Quit()

        ReleaseComObject(xlCells)
        ReleaseComObject(xlWorkSheets)
        ReleaseComObject(xlWorkSheet)
        ReleaseComObject(xlWorkBook)
        ReleaseComObject(xlWorkBooks)
        ReleaseComObject(xlApp)

    End Sub
    Private Sub ReleaseComObject(ByVal obj As Object)
        Try
            If obj IsNot Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
                obj = Nothing
            End If
        Catch ex As Exception
            obj = Nothing
        End Try
    End Sub
End Module