я написал код для экспорта datagridview в Excel и ошибка в том, что объект релиза не объявлен - PullRequest
Новая
       32

я написал код для экспорта datagridview в Excel и ошибка в том, что объект релиза не объявлен

0 голосов
/ 18 июня 2019

ошибка releaseobject не объявлено Я сделал все ссылки но ошибка все еще происходит.

Try Button5.Text = "Пожалуйста, подождите ..." Button5.Enabled = False 

    SaveFileDialog1.Filter = "Excel Document (*.xlsx)|*.xlsx"
    If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer

        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")

        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                For k As Integer = 1 To DataGridView1.Columns.Count
                    xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
                    xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
                Next
            Next
        Next

        xlWorkSheet.SaveAs(SaveFileDialog1.FileName)
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp) '<-here is error
        releaseObject(xlWorkBook)'<-here is error
        releaseObject(xlWorkSheet)'<-here is error

        MsgBox("Successfully saved" & vbCrLf & "File are saved at : " & SaveFileDialog1.FileName, MsgBoxStyle.Information, "Information")

        Button5.Text = "Export To MS Excel"
        Button5.Enabled = True
    End If
Catch ex As Exception
    MessageBox.Show("Failed to save !!!", "Error Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Return
End Try

вот ссылка на изображения https://cloud.mail.ru/public/2MVJ/4ATQCbjsg

...