VB.NET: CODIGO PARA MODIFICAR CELDAS DE EXCEL CON VALORES O TEXTOS DE UN TEXTBOX

Para modificar una celda de Excel con el contenido de un Textbox, iniciaremos  abriendo el libro de Excel:

 1)Primero hay que adicionar la referencia del Excel

a) clic en Menu Project

b) clic en Add Reference

c) clic en Pestaña COM

d) Seleccionar Microsoft Excel XX.X Object Library

e) clic en ok

f) Luego insertamos el siguiente codigo en la rutina deseada:

Imports Microsoft.Office.Interop.Excel

Private Sub XXXXXXX

Dim xlibro As Microsoft.Office.Interop.Excel.Application

    Dim strRutaExcel As String

    Dim Workbooks As String

'El siguiente codigo es para crear la ruta,entre comillas se pone la ruta donde esta el libro

strRutaExcel = "C:\Libro1.xls"

'El siguiente codigo es para abrir el libro y hacerlo visible, si se quiere dejar el libro oculto, se cambia la palabra True por False

xlibro = CreateObject("Excel.Application")

        xlibro.Workbooks.Open(strRutaExcel)

        xlibro.Visible = True

'Ahora podemos llevar el contenido de un textbox a una celda de excel expecifica copn la siguiente instrucción

'Activamos el libro

xlibro.Workbooks("boton.xlsm").Activate()

'Activamos la hoja especifica del libro   

xlibro.Sheets("Hoja1").Select()

'esta es la instruccion para modificar la celda con el contenido de un textbox llamado textbox1, ustedes le pueden poner el nombre que deseen al textbox

xlibro.Range("A1").Value = Textbox1.Text

End Sub

Ya tenemos el libro abierto, para cerrarlo simplemente adicionamos el siguiente código en la ubicación deseada, siempre debe estar más abajo del código que usamos para abrir el libro y antes del  End Sub o en un proceso posterior, ya que de lo contrario resultaría un error.

xlibro.Workbooks("Libro1.xls").Close()