Visual Basic.NET - Error en función

Gravedad	Código	Descripción	Proyecto	Archivo	Línea	Estado suprimido	Estado suprimido

Error	BC30491	La expresión no genera un valor.	Tension 3.0	D:\Documentos\Proyecto_tensión\Tension 3.0\Tension 3.0\Form1.vb	695		Activo

Private Sub ActualizaExcel(ByVal anio As String)

        'ACTUALIZAMOS LA HOJA EXCEL

        exApp = New Excel.Application

        exLibro = exApp.Workbooks.Open("D:\Documentos\Escaneados\Informe_medico_infarto_2019\Tensión\Historico tension.xlsx")

        exHoja = DirectCast(exLibro.Sheets("Histórico tensión " & anio), Excel.Worksheet)

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

        Dim menorFecha As String = Format(exHoja.Range("$A$" & ultimaFila).Value, "dd/MM/yyyy") 'VALOR DE LA ÚLTIMA FECHA INSERTADA EN LA HOJA

        Dim rowIndex As Int16 = 0

        Dim primeraVacia As String = ("A" & ultimaFila + 1) 'PRIMERA FILA VACÍA

        'SELECCIONO LA PRIMERA CELDA VACÍA DESPUÉS DE LA ÚLTIMA FILA ESCRITA

        exHoja.Select()

        exHoja.Range(primeraVacia).Select()

        Dim actualizaSQL As String = "SELECT * FROM valores WHERE fecha > '" & menorFecha & "';"

        'ESTABLECEMOS CONEXIÓN CON POSTGRES

        If conexion.State = ConnectionState.Open Then

            conexion.Close()

        Else conexion.Open()

        End If

        Dim SQLadapter As New NpgsqlDataAdapter(actualizaSQL, conexion)

        Dim ds As New DataSet

        'RELLENAMOS EL DATASET Y AÑADIMOS REGISTROS AL EXCEL

        SQLadapter.Fill(ds)

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

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

                exHoja.Cells(ultimaFila + 1, j + 1) = ds.Tables(0).Rows(i).Item(j) 'RELLENAMOS LAS CELDAS CON LOS NUEVOS VALORES

            Next

            ultimaFila += 1

        Next

        'FORMATEAMOS, GUARDAMOS Y CERRAMOS EL EXCEL

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

        exHoja.Rows.Item(1).Font.ColorIndex = 41 'COLOR DEL ENCABEZADO

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

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

        Dim contador As Integer = exHoja.Rows.Count

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

        objRango.HorizontalAlignment = 3 'ALINEADO DE LAS COLUMNAS

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

        exHoja.Rows.Font.Name = "Adobe Garamond Pro Bold" 'TIPO DE FUENTE

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

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

        exHoja.Range("A2:A367").Interior.Color = Color.White 'COLOR DEL FONDO DE LA COLUMNA FECHAS

        exHoja.Range("A2:A367").NumberFormat = "dd/mm/yyyy"

        'DAMOS FORMATO CONDICIONAL DE LAS CELDAS

        'FORMATO A COLUMNA DE FECHA

        Dim NCol As Integer = DataGridView1.ColumnCount

        Dim NRow As Integer = DataGridView1.RowCount

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 2 To NCol

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

                exHoja.Range(FC).Select()

                exHoja.Range(FC).Font.ColorIndex = 1

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

            Next

        Next

        'FORMATO A COLUMNA SISTÓLICA

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 2 To NCol - 3

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

                exHoja.Range(FC).Select()

                If exHoja.Range(FC).Value >= 14 Or exHoja.Range(FC).Value <= 9 Then

                    exHoja.Range(FC).Font.ColorIndex = 3

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

                End If

            Next

        Next

        'FORMATO A COLUMNA DIASTÓLICA

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 3 To NCol - 2

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

                exHoja.Range(FC).Select()

                If exHoja.Range(FC).Value <= 6 Or exHoja.Range(FC).Value >= 9 Then

                    exHoja.Range(FC).Font.ColorIndex = 3

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

                End If

            Next

        Next

        'FORMATO A COLUMNA PULSACIONES

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 4 To NCol - 1

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

                exHoja.Range(FC).Select()

                If exHoja.Range(FC).Value <= 50 Or exHoja.Range(FC).Value >= 82 Then

                    exHoja.Range(FC).Font.ColorIndex = 3

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

                End If

            Next

        Next

        'FORMATO A COLUMNA SATURACIÓN

        For Fila As Integer = 2 To NRow + 1

            For Col As Integer = 5 To NCol

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

                exHoja.Range(FC).Select()

                If exHoja.Range(FC).Value <= 94 Then

                    exHoja.Range(FC).Font.ColorIndex = 3

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

                End If

            Next

        Next

        'ELIMINAMOS RESIDUOS DE VERSIONES ANTERIORES

        Dim lastRow As Long = exHoja.Range("A370").End(Excel.XlDirection.xlUp).Row

        exHoja.Range("A" & lastRow & ":E" & lastRow).Select()

        exHoja.Range("A" & lastRow & ":E367").Clear()

        exHoja.Range("F1:N367").Select()

        exHoja.Range("F1:N367").Clear()

        'ESCRIBIMOS LAS MEDIAS DE CADA COLUMNA

        lastRow += 1

        exHoja.Cells(lastRow, 1).Select()

        exHoja.Cells(lastRow, 1).Value = "MEDIAS: "

        exHoja.Cells(lastRow, 1).Font.ColorIndex = 32

        exHoja.Cells(lastRow, 1).Interior.Color = Color.Chartreuse

        exHoja.Cells(lastRow, 1).Font.Size = 12

        exHoja.Cells(lastRow, 1).Font.Name = "Adobe Garamond Pro Bold"

        exHoja.Cells(lastRow, 1).HorizontalAlignment = 3

        exHoja.Cells(lastRow, 2).FormulaLocal = "=REDONDEAR(PROMEDIO(B2:B" & lastRow - 2 & ");1)"

        exHoja.Cells(lastRow, 2).Font.Size = 12

        exHoja.Cells(lastRow, 2).Font.Name = "Adobe Garamond Pro Bold"

        exHoja.Cells(lastRow, 2).HorizontalAlignment = 3

        exHoja.Cells(lastRow, 3).FormulaLocal = "=REDONDEAR(PROMEDIO(C2:C" & lastRow - 2 & ");1)"

        exHoja.Cells(lastRow, 3).Font.Size = 12

        exHoja.Cells(lastRow, 3).Font.Name = "Adobe Garamond Pro Bold"

        exHoja.Cells(lastRow, 3).HorizontalAlignment = 3

        exHoja.Cells(lastRow, 4).FormulaLocal = "=REDONDEAR(PROMEDIO(D2:D" & lastRow - 2 & ");0)"

        exHoja.Cells(lastRow, 4).Font.Size = 12

        exHoja.Cells(lastRow, 4).Font.Name = "Adobe Garamond Pro Bold"

        exHoja.Cells(lastRow, 4).HorizontalAlignment = 3

        exHoja.Cells(lastRow, 5).FormulaLocal = "=REDONDEAR(PROMEDIO(E2:E" & lastRow - 2 & ");0)"

        exHoja.Cells(lastRow, 5).Font.Size = 12

        exHoja.Cells(lastRow, 5).Font.Name = "Adobe Garamond Pro Bold"

        exHoja.Cells(lastRow, 5).HorizontalAlignment = 3

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

        exHoja.Range("E1").End(Excel.XlDirection.xlDown).Select() 'SELECCIONAMOS LA ÚLTIMA CELDA DE LA COLUMNA E CON DATOS

        exLibro.Save()

        exLibro.Close()

        exApp.Quit()

        'ESTABLECEMOS EL % DE PROGRESO REALIZADO DEL TOTAL DE LA TAREA

        Dim n As Integer = exHoja.Range("A1").Rows.Count

        ProgressBar1.Maximum = n

        For count = 1 To n

            count += 1

            porcentaje_lbl.Text = count & "%"

            ProgressBar1.Value = count

        Next

        MessageBox.Show("HOJA ACTUALIZADA.", " ACTUALIZACIÓN EXCEL ", MessageBoxButtons.OK, MessageBoxIcon.None)

        ' LIMPIAMOS TODOS LOS PROCESOS DE EXCEL ABIERTOS DE LA MEMORIA

        Dim P As System.Diagnostics.Process

        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()

    End Sub