Visual Basic.NET - Fallo al añadir hoja a libro Excel

Private Sub guardar_btn_Click_1(sender As Object, e As EventArgs) Handles guardar_btn.Click

        CitaCambia(cita_tbox.Text, proxCita_tbox.Text) 'LLAMAMOS A LA FUNCIÓN QUE CAMBIA LA CONSTANTE DEL TEXTBOX

        Dim mes As Integer = Month(fechaIni_tb.Text) 'EXTRAEMOS EL NÚMERO DE MES DE LA FECHA SELECCIONADA

        Dim nombre As String = LCase(MonthName(mes)) ' CONVERTIMOS EL NÚMERO EN EL NOMBRE DEL MES

        Dim inicio As Date = Date.Now

        Dim valor As String = fechaIni_tb.Text 'GUARDAMOS LA PRIMERA FECHA COMO STRING

        If valor = "" Then

            valor = Format(Now.AddMonths(-1), "dd-MM-yyyy")

            fechaIni_tb.Text = valor

        End If

        Dim fecha1 As String = Date.Parse(valor).ToString("dd-MM-yyyy")

        exApp = New Excel.Application

        exLibro = exApp.Workbooks.Open("D:\Documentos\Escaneados\Informe_medico_infarto_2019\Tension\Historico tension_" & anio & ".xlsx")

        Dim hojas As Sheets = exLibro.Sheets  'REFERENCIAMOS LA COLECCIÓN DE HOJAS DE CÁLCULO.

        Dim ws As Worksheet = DirectCast(hojas(hojas.Count), Worksheet)  'OBTENEMOS LA ÚLTIMA HOJA DE CÁLCULO.

        Dim newSheet As Worksheet = exLibro.Worksheets.Add(After:=exHoja)

        Dim row As Range = exHoja.Range("A1:E1")

        Dim rowIndex As Integer = 1

        Dim periodoSQL As String = "SELECT * FROM conjunto_view WHERE fecha >= '" & fecha1 & "';"

        If conexion.State = ConnectionState.Open Then

            conexion.Close()

        Else

            conexion.Open()

        End If

        Dim SQLadapter As New NpgsqlDataAdapter(periodoSQL, conexion)

        Dim ds As New DataSet

        'RELLENAMOS EL DATASET Y AÑADIMOS REGISTROS AL EXCEL

        SQLadapter.Fill(ds)

        Dim lineasCopiadas As Int16 = ds.Tables(0).Rows.Count 'NÚMERO DE LINEAS DEL DATASET

        newSheet.Name = lineasCopiadas & " líneas desde " & nombre 'DAMOS NOMBRE A LA HOJA NUEVA

        For fila = 0 To ds.Tables(0).Rows.Count - 1   'RECORREMOS LAS FILAS DEL DATASET

            For columna = 0 To ds.Tables(0).Columns.Count - 1 'RECORREMOS LAS COLUMNAS DEL DATASET

                ws.Cells(fila + 2, columna + 1) = ds.Tables(0).Rows(fila).Item(columna) 'RELLENAMOS LAS CELDAS CON LOS NUEVOS VALORES

            Next

        Next

        'FORMATEAMOS, GUARDAMOS Y CERRAMOS EL EXCEL

        Dim M_Izq As Integer = 53

        Dim M_Der As Integer = 33

        Dim M_Sup As Integer = 30

        Dim M_Inf As Integer = 35

        'ORIENTACIÓN DE LA HOJA

        With ws.PageSetup

            .Orientation = Excel.XlPageOrientation.xlPortrait

            'CONFIGURACIÓN DE MÁRGENES

            .LeftMargin = M_Izq

            .RightMargin = M_Der

            .TopMargin = M_Sup

            .BottomMargin = M_Inf

        End With

        Dim cell As Excel.Range

        For Each cell In row.Cells

            cell.Value = UCase(cell.Value)

        Next

        ' OBTENEMOS EL RANGO DE LA PRIMERA FILA

        Dim headerRange As Excel.Range = exHoja.Range("1:1")

        ' CONFIGURAMOS LA PROPIEDAD RowsToRepeatAtTop DEL OBJETO PageSetup DE CADA HOJA EXCEL

        For Each xlWorkSheet In exLibro.Worksheets

            xlWorkSheet.PageSetup.PrintTitleRows = "$1:$1"

        Next

        ' CONFIGURAMOS LA PROPIEDAD PrintTitleRows DEL OBJETO PageSetup DE CADA HOJA EXCEL

        For Each xlWorkSheet In exLibro.Worksheets

            xlWorkSheet.PageSetup.PrintTitleRows = headerRange.Address

        Next

        ws.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4 'TAMAÑO DE PAPEL A4

        ws.Rows.Item(1).Font.Bold = 1 'NEGRITA

        ws.Rows.Item(1).Font.Color = Color.DarkBlue 'COLOR DEL TEXTO DEL ENCABEZADO

        ws.Rows.Item(1).Interior.Color = Color.LightGray 'COLOR DEL FONDO DEL ENCABEZADO

        ws.Rows.Item(1).HorizontalAlignment = 3 'ALINEADO DEL ENCABEZADO

        Dim objRango As Excel.Range = newSheet.Range(newSheet.Cells(1, 1), newSheet.Range("E1").End(Excel.XlDirection.xlDown))

        Dim contador As Integer = newSheet.Rows.Count

        ws.Range("A1").Value = "   FECHA   "

        ws.Range("B1").Value = "  SISTÓLICA  "

        ws.Range("C1").Value = "  DIASTÓLICA  "

        ws.Range("D1").Value = "  PULSACIONES  "

        ws.Range("E1").Value = "  SATURACIÓN  "

        ws.Range("A1:E1").Borders.LineStyle = 1

        ws.Range("F1:XFD1").Cells.Interior.Color = Color.Transparent

        objRango.Borders.LineStyle = 1 'BORDES DE LA HOJA

        objRango.ColumnWidth = 14 'ANCHO DE LAS COLUMNAS

        ws.Rows.Rows.Font.Size = 12 ' TAMAÑO DE LA FUENTE

        ws.Rows.Rows.Font.Name = "Calibri" 'TIPO DE FUENTE

        ws.Rows.Item(1).Font.Bold = 1 'NEGRITA

        ws.Columns.AutoFit() 'AJUSTE DE LAS COLUMNAS

        ws.Range("A2:A369").Font.ColorIndex = 5 'COLOR DE LA FUENTE DE LA COLUMNA DE FECHAS

        ws.Range("A2:A367").NumberFormat = "dd/MM/yyyy"

        'DAMOS FORMATO CONDICIONAL DE LAS CELDAS

        Dim NCol As Integer = ds.Tables(0).Columns.Count

        Dim NRow As Integer = ds.Tables(0).Rows.Count

        Dim ultimaFila As Integer = ws.Range("A1").End(Excel.XlDirection.xlDown).Row 'NÚMERO DE LA ÚLTIMA FILA CON DATOS

        ws.Range("A1: A" & ultimaFila).Borders.LineStyle = 1

        ws.Range("A2: A" & ultimaFila).HorizontalAlignment = 3

        'FORMATO A COLUMNA DE FECHA

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 2 To NCol

                Dim FC As String = Chr(64 + Col) & Fila

                ws.Range(FC).Select()

                ws.Range(FC).Font.Bold = True

                ws.Range(FC).HorizontalAlignment = 3

                ws.Range(FC).Borders.LineStyle = 1

            Next

        Next

        'FORMATO A COLUMNA SISTÓLICA

        'DAMOS FORMATO A LA COLUMNA SISTÓLICA

        Dim columnToSelect As Excel.Range = newSheet.Range("B2", newSheet.Range("B2").End(Excel.XlDirection.xlDown))

        columnToSelect.Select()

        For Each celda As Excel.Range In columnToSelect.Cells

            If celda.Value <= 9 Or celda.Value >= 13.9 Then

                celda.Font.Color = Color.Red

                celda.Font.Bold = True

            End If

        Next

        newSheet.Range("C2").End(Excel.XlDirection.xlUp).Select()

        'FORMATO A COLUMNA DIASTÓLICA

        Dim usedRange1 As Excel.Range = newSheet.UsedRange

        Dim columnToSelect1 As Excel.Range = newSheet.Range("C2", newSheet.Range("C2").End(Excel.XlDirection.xlDown))

        columnToSelect1.Select()

        For Each celda1 As Excel.Range In columnToSelect1.Cells

            If celda1.Value <= 6 Or celda1.Value >= 9 Then

                celda1.Font.Color = Color.Red

                celda1.Font.Bold = True

            End If

        Next

        newSheet.Range("D2").End(Excel.XlDirection.xlUp).Select()

        'FORMATO A COLUMNA PULSACIONES

        Dim usedRange2 As Excel.Range = newSheet.UsedRange

        Dim columnToSelect2 As Excel.Range = newSheet.Range("D2", newSheet.Range("D2").End(Excel.XlDirection.xlDown))

        columnToSelect2.Select()

        For Each celda2 As Excel.Range In columnToSelect2.Cells

            If celda2.Value <= 50 Or celda2.Value >= 76 Then

                celda2.Font.Color = Color.Red

                celda2.Font.Bold = True

            End If

        Next

        newSheet.Range("E2").End(Excel.XlDirection.xlUp).Select()

        'FORMATO A COLUMNA SATURACIÓN

        Dim usedRange3 As Excel.Range = newSheet.UsedRange

        Dim columnToSelect3 As Excel.Range = newSheet.Range("E2", newSheet.Range("E2").End(Excel.XlDirection.xlDown))

        columnToSelect3.Select()

        For Each celda3 As Excel.Range In columnToSelect3.Cells

            If celda3.Value <= 94 Then

                celda3.Font.Color = Color.Red

                celda3.Font.Bold = True

            End If

        Next

        Dim lastRow As Integer = newSheet.Range("A" & newSheet.Rows.Count).End(Excel.XlDirection.xlUp).Row

        'ESCRIBIMOS LAS MEDIAS DE CADA COLUMNA

        lastRow += 2

        ws.Range("A" & lastRow).Select()

        ws.Range("A" & lastRow).Value = "MEDIAS: "

        ws.Range("A" & lastRow).Font.ColorIndex = 32

        ws.Range("A" & lastRow).Interior.Color = Color.Chartreuse

        ws.Range("A" & lastRow).Font.Size = 12

        ws.Range("A" & lastRow).Font.Name = "Calibri"

        ws.Range("A" & lastRow).HorizontalAlignment = 3

        ws.Range("B" & lastRow).FormulaLocal = "=REDONDEAR(PROMEDIO(B2:B" & lastRow - 2 & ");1)"

        ws.Range("B" & lastRow).Font.Size = 12

        ws.Range("B" & lastRow).Font.Name = "Calibri"

        ws.Range("B" & lastRow).HorizontalAlignment = 3

        ws.Range("B" & lastRow).Font.Bold = True

        ws.Range("C" & lastRow).FormulaLocal = "=REDONDEAR(PROMEDIO(C2:C" & lastRow - 2 & ");1)"

        ws.Range("C" & lastRow).Font.Size = 12

        ws.Range("C" & lastRow).Font.Name = "Calibri"

        ws.Range("C" & lastRow).HorizontalAlignment = 3

        ws.Range("C" & lastRow).Font.Bold = True

        ws.Range("D" & lastRow).FormulaLocal = "=REDONDEAR(PROMEDIO(D2:D" & lastRow - 2 & ");0)"

        ws.Range("D" & lastRow).Font.Size = 12

        ws.Range("D" & lastRow).Font.Name = "Calibri"

        ws.Range("D" & lastRow).HorizontalAlignment = 3

        ws.Range("D" & lastRow).Font.Bold = True

        ws.Range("E" & lastRow).FormulaLocal = "=REDONDEAR(PROMEDIO(E2:E" & lastRow - 2 & ");0)"

        ws.Range("E" & lastRow).Font.Size = 12

        ws.Range("E" & lastRow).Font.Name = "Calibri"

        ws.Range("E" & lastRow).HorizontalAlignment = 3

        ws.Range("E" & lastRow).Font.Bold = True

        ws.Range("A" & lastRow & ":E" & lastRow).Borders.LineStyle = 1 'BORDES DE LA HOJA

        ws.Range("E1").End(Excel.XlDirection.xlDown).Select()

        'CALCULAMOS EL TIEMPO QUE TARDA EN EJECUTAR LA ACTUALIZACIÓN

        Dim fin As DateTime = DateTime.Now

        Dim totalSeg As String = "00"

        Dim total As TimeSpan = New TimeSpan(fin.Ticks - inicio.Ticks)

        If total.Hours = 0 And total.Minutes = 0 Then

            totalSeg = total.Seconds.ToString("00")

        End If

        MessageBox.Show("HOJA AÑADIDA Y GUARDADA EN " & totalSeg & " SEGUNDOS.", "PERFECTO.", MessageBoxButtons.OK, MessageBoxIcon.None)

        exLibro.Save()

        exLibro.Close()

        exApp.Quit()

        Dim P As System.Diagnostics.Process   ' CERRAMOS TODOS LOS PROCESOS DE EXCEL ABIERTOS

        Try

            For Each P In System.Diagnostics.Process.GetProcesses

                If P.ProcessName.ToUpper Like "*EXCEL*" Then

                    P.Kill()

                End If

            Next

        Catch

        End Try

        GC.WaitForPendingFinalizers()

        GC.Collect()

        conexion.Close()

        Form1.Visible = True

        Me.Close()

    End Sub