Не могу записать в файл Excel при Microsoft.Office.Interop.Excel.Application.Visible = False

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
 
        Dim strPozName As String ' Название позиции товара из калькуляции
        Dim strPosUnit As String ' единица измерения товара из калькуляции
        Dim intPosQuantity As Integer ' количество товара из калькуляции
        Dim dblPosPrice As Double ' цена позиции из калькуляции
        Dim strPosProduce As String ' производитель позиции из калькуляции
        Dim intSnabRowIndex As Integer = 12 ' переменная с номером строки файла снабжения
        Me.strSnabFileNameShort = "Заявка в снабжение " & Me.strProjectName & ".xlsx" ' Кратное название файла заявки в снабжение
        Me.strSnabFileNameFull = Me.strProjectFolder & "\Заявка в снабжение " & Me.strProjectName & ".xlsx" ' Полное название файла заявки в снабжение.
        If Dir(strSnabFileNameFull) <> "" Then ' Если файл заявки существует, то
            MsgBox("Файл 'Заявка в снабжение " & strSnabFileNameShort & " уже сформирован. Формирование новой заявки в снабжение невозможно.", vbCritical, "Ошибка формирования файла") ' предупреждение о наличие файла
            Exit Sub ' и выход из системы
        End If
 
        Me.oExcelCalc.Visible = False
        Me.oExcelCalc.Workbooks.Add()
        Me.oExcelCalc.ActiveWorkbook.SaveAs(Filename:=Me.strSnabFileNameFull)
        With Me.oExcelCalc
            .Sheets("Лист1").Name = "List"
            .Range("B11").Value = "Наименование позиции"
            .Range("C11").Value = "Поставщик"
            .Range("D11").Value = "Ед.Изм."
            .Range("E11").Value = "Кол-во"
            .Range("F11").Value = "Цена, руб. без НДС"
            .Columns("A:A").ColumnWidth = 0
            .Columns("B:B").ColumnWidth = 89
            .Columns("C:C").ColumnWidth = 43
            .Columns("D:D").ColumnWidth = 12
            .Columns("E:E").ColumnWidth = 12
            .Columns("F:F").ColumnWidth = 26
            .Range("A11:F11").Select()
            .Selection.HorizontalAlignment = -4108
        End With
 
        oExcelCalc.Application.DisplayAlerts = False ' выключение системных предупреждений
        For intRowIndex = 0 To Me.DataGridView1.Rows.Count - 1 ' Формирование цикла формирования таблицы по количеству файлов
            If Me.DataGridView1.Item(25, intRowIndex).Value <> "Устаревшая версия калькуляционной карты" Then
                strExportCalcNameFull = Me.DataGridView1.Item(0, intRowIndex).Value ' присвоение переменной названия файла
                strExportCalcNameShort = (Strings.Right(strExportCalcNameFull, Len(strExportCalcNameFull) - InStrRev(strExportCalcNameFull, "\"))) ' Краткое имя файла калькуляции (без пути)
                oExcelCalc.Workbooks.Open(strExportCalcNameFull) ' открытие файла калькуляции
                For intCalcRowIndex1 = 36 To 55 ' Цикл формирования таблицы запроса по материалалм из калькуляции
                    oExcelCalc.Windows(strExportCalcNameShort).Activate() ' активация файла калькуляции
                    If ((oExcelCalc.Range("D" & intCalcRowIndex1).Value <> "") And ((oExcelCalc.Range("AI" & intCalcRowIndex1).Value = 0) Or (oExcelCalc.Range("AI" & intCalcRowIndex1).Value = Nothing))) = True Then
                        strPozName = oExcelCalc.Range("D" & intCalcRowIndex1).Value ' присвоение переменной названия позиции
                        strPosProduce = oExcelCalc.Range("V" & intCalcRowIndex1).Value ' присвоение переменной названи производителя
                        strPosUnit = oExcelCalc.Range("AD" & intCalcRowIndex1).Value ' присвоение переменной единиц измерения
                        intPosQuantity = oExcelCalc.Range("AF" & intCalcRowIndex1).Value ' присвоение переменной количества
                        dblPosPrice = oExcelCalc.Range("AI" & intCalcRowIndex1).Value ' присвоение переменной цены
                        oExcelCalc.Windows(strSnabFileNameShort).Activate()
                        oExcelCalc.Range("A" & intSnabRowIndex).Value = strExportCalcNameShort
                        oExcelCalc.Range("B" & intSnabRowIndex).Value = strPozName
                        oExcelCalc.Range("C" & intSnabRowIndex).Value = strPosProduce
                        oExcelCalc.Range("D" & intSnabRowIndex).Value = strPosUnit
                        oExcelCalc.Range("E" & intSnabRowIndex).Value = intPosQuantity
                        oExcelCalc.Range("F" & intSnabRowIndex).Value = dblPosPrice
                        intSnabRowIndex = intSnabRowIndex + 1
                    End If
                    FormProgress.ProgressBar1.Value = FormProgress.ProgressBar1.Value + 1
                Next intCalcRowIndex1
              
                oExcelCalc.Windows(strExportCalcNameShort).Activate()
                oExcelCalc.ActiveWorkbook.Close()
            Else
                FormProgress.ProgressBar1.Value = FormProgress.ProgressBar1.Value + 76
            End If
        Next intRowIndex
        oExcelCalc.Application.DisplayAlerts = True ' Включение системных предупреждений
        oExcelCalc.Application.Quit() ' закрытие приложения Excel
    End Sub
 
 
    End Sub