VB .Net и объект Excel.Application, ошибка при сохранении файлов Excel

' Microsoft SQL Server Integration Services Script Task
' Write scripts using Microsoft Visual Basic
' The ScriptMain class is the entry point of the Script Task.

Option Strict Off
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.office.interop.excel
Imports Microsoft.office.interop

Public Class ScriptMain
    Public Sub Main()

        Dim oExcel As Excel.Application
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim row As DataRow
        Dim column As DataColumn

        Dim id As String
        Dim name As String
        Dim nameFile As String
       
        Dim oleDA As New OleDbDataAdapter
        Dim dt As New System.Data.DataTable
        oleDA.Fill(dt, Dts.Variables("infoSet").Value) 'массив данных из sql

        oExcel = CreateObject("Excel.Application")
        oExcel.Visible = False
        oExcel.DisplayAlerts = 0

        For Each row In dt.Rows
            id = ""
            name = ""
            id = row(0).ToString
            name = row(1).ToString
            nameFile = ""

            nameFile = "C:filesfile_" + id + ".xls" 'получаем имя открываемого файла
            oBook = oExcel.Workbooks.Open(nameFile)

            oSheet = oBook.Worksheets.Item(1)

            oSheet.PageSetup.RightFooter = "Идентификатор " + id + " " + name

            oBook.SaveAs(nameFile, 56)

            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
            oSheet = Nothing
            oBook.Close()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
            oBook = Nothing

        Next
        oExcel.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
        oExcel = Nothing
        Dts.TaskResult = Dts.Results.Success

    End Sub

End Class