Исключение из HRESULT: 0x800a03ec в приложении excel

---

Я пытаюсь сохранить рабочий лист excel в VB, но это дает мне ошибку на

xlWorkBook = xlApp.Workbooks.Add(MissValue)

эта строка как ошибка:

Exception from HRESULT: 0x800A03EC

Public Sub ExportToExcelFromDGView(ByVal dgView As DataGridView, ByVal strFileName As String, _
                                                  ByVal ParamArray strSkippedCol() As String)

        Try
            Dim strOutput(dgView.RowCount + 2, dgView.ColumnCount - 1) As String

            Dim str As String = ""
            Dim xlApp As New Excel.Application
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet

            Dim MissValue = System.Reflection.Missing.Value
            xlApp = New Excel.Application
            xlWorkBook = xlApp.Workbooks.Add(MissValue)
            xlWorkSheet = xlWorkBook.Sheets.Add("Sheet1")

            '****For Column Heading(Adding column Names)
            Dim intColDisp As Integer = 0
            Dim flgCol As Boolean = False
            For intCol As Integer = 0 To dgView.ColumnCount - 1
                'Check for skipped Records
                flgCol = False
                For iArrLength As Integer = 0 To strSkippedCol.Length - 1
                    If dgView.Columns(intCol).Name.Trim.ToUpper = strSkippedCol.GetValue(iArrLength).ToString.Trim.ToUpper Then
                        flgCol = True
                        Exit For
                    End If
                Next
                If flgCol Then
                    Continue For
                End If

                strOutput(0, intCol) = CStr(dgView.Columns(intCol).HeaderText.Trim)
                intColDisp = intColDisp + 1
            Next

            '****For Records(Adding record text)
            For intRow As Integer = 0 To dgView.RowCount - 1
                intColDisp = 0
                For intCol As Integer = 0 To dgView.ColumnCount - 1
                    flgCol = False
                    For iArrLength As Integer = 0 To strSkippedCol.Length - 1
                        If dgView.Columns(intCol).Name.Trim.ToUpper = strSkippedCol.GetValue(iArrLength).ToString.Trim.ToUpper Then
                            flgCol = True
                            Exit For
                        End If
                    Next

                    If flgCol Then
                        Continue For
                    End If

                    strOutput(intRow + 1, intCol) = CStr(dgView.Item(intCol, intRow).Value.ToString.Trim)
                    intColDisp = intColDisp + 1

                    'End If
                Next
            Next

            xlWorkSheet.Range("A1").Resize(dgView.RowCount + 1, dgView.ColumnCount).Value = strOutput

            xlWorkBook.SaveAs(strFileName)
            xlWorkBook.Close()
            xlApp.Quit()
            ReleaseObjects(xlApp)
            ReleaseObjects(xlWorkBook)
            ReleaseObjects(xlWorkSheet)
            ReleaseObjects(MissValue)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Это весь мой код ,Пожалуйста, помогите мне

Что я уже пробовал:

Я попробовал добавить

xlWorkBook = xlApp.Workbooks.Add()

---

xlApp.Workbooks.Add()