Leer y Agregar en Excel con Visual Basic .Net 2022

Imports Microsoft.Office.Interop.Excel

Private Sub LeerExcel()

    Dim Aplicacion As Excel.Application

    Dim Libro As Excel.Workbook

    Dim hoja As Excel.Worksheet

    Dim cad As String

    Aplicacion = New Excel.Application

    Libro = Aplicacion.Workbooks.Open("C:\Users\miky mouse\OneDrive\ejemplo3.xlsx")

    hoja = Libro.Worksheets(1)

    cad = hoja.Cells(3, 5).Value   ' Lee de hoja 1 fila 3 y columna5

    MsgBox("dato=" + cad)

    hoja.Cells(8, 1).value = "9876.65"   'Agrega en hoja 1 el dato, en fila 8 y columna 1

    Libro.Close()

    Aplicacion.Quit()

End Sub