Cómo manipular datos de las celdas de Excel en Visual Basic

Aprender a manipular los datos de Microsoft Office Excel le puede ahorrar tiempo cuando se necesita para modificar los valores de celda del libro desde una aplicación de Visual Basic . Excel es una aplicación de hoja de cálculo que es parte de la suite Microsoft Office. Microsoft Visual Basic.NET es un lenguaje de programación orientado a objetos que es relativamente fácil de aprender y usar. En pocos pasos se puede escribir código VB.NET para modificar valores de las celdas en un libro de Excel. Instrucciones
1

Crear una nueva hoja de cálculo de Excel y agregue los siguientes datos :

Type " Campo1 " en " A1 ", " campo2 " en " B1" y " Field3 " en . " C1"

Tipo " 1 " en " A2 ", " 2 " en " B2" y " 3 " en " C2"

Guardar en " C: \\" como " manipulateExcel.xls ".
2

Inicie Microsoft Visual Basic, haga clic en el menú " archivo" y seleccionar " Nuevo proyecto" . Haga clic en " Aplicación de Windows Forms " y seleccione " OK" . Haga doble clic en " botón" en el panel " Herramientas " para añadir un nuevo botón al formulario.

Doble clic en " Button1 " en el formulario para abrir el módulo " Form1.vb " .

3

Copia y pega el siguiente código en " Public Class Form1 " para crear una conexión con el libro de Excel.

conec Private As String = " Provider = Microsoft.Jet.OLEDB . 4.0 , " & _

" Data Source = C: \\ manipulateExcel.xls ; "& _

" Extended Properties = "" Excel 8.0 ; HDR = YES " " "
Página 4

Copia y pega el siguiente código en " Button1_Click " para abrir " manipulateExcel.xls " y editar los datos de la celda .
5

XLConnection Dim As New OleDbConnection (conn )

XLDataAdapter Dim As New OleDbDataAdapter ( "SELECT * FROM [ Hoja1 $] " , XLConnection )

XLDataSet As DataSet = New DataSet ()

XLDataAdapter.Fill ( XLDataSet , " Sheet1" )

XLDataAdapter.UpdateCommand = New OleDbCommand (_

"UPDATE [ Sheet1 $] SET campo1 = ? , campo2 = ? , field3 = ? " , XLConnection )
< p> XLDataAdapter.UpdateCommand.Parameters.Add ("@ campo1 " , OleDbType.Numeric ) . SourceColumn = " campo1 "

XLDataAdapter.UpdateCommand.Parameters.Add ("@ campo2 " , OleDbType.Currency ) . SourceColumn = " campo2 "

XLDataAdapter.UpdateCommand.Parameters.Add ("@ field3 " , OleDbType.Currency ) . SourceColumn = " field3 "

XLDataSet.Tables ( 0 ) . Filas ( 0 ) ( " campo1 ") = 1,000
XLDataSet.Tables

( 0 ) . Filas ( 0 ) ( " campo2 ") = 10,1
XLDataSet.Tables

( 0 ) . Filas ( 0 ) (" field3 ") = 500,1

XLDataAdapter.Update ( XLDataSet , " Sheet1 " )

XLConnection.Close ()
6

Press " F5 " para ejecutar la aplicación .