Cómo manipular datos de una celda de Excel en Visual Basic

Aprender a manipular los datos de Microsoft Office Excel puede ahorrar tiempo cuando se necesita para modificar los valores de celda 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 utilizar. En unos pocos pasos se puede escribir código VB.NET para modificar los valores de celda en un libro de Excel.

Instrucciones

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

Tipo "Campo1" en "A1", "Campo2" en "B1" y "Campo3" en "C1".

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

Guardarlo en "C: \" como "manipulateExcel.xls".

2 Iniciar 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 a su formulario.

Haga 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.

conn privada como secuencia = "Provider = Microsoft.Jet.OleDb.4.0;" & _

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

"Extended Properties =" "Excel 8.0; HDR = SÍ" ""

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

5 Dim XLConnection As New OleDbConnection (conn)

Dim XLDataAdapter As New OleDbDataAdapter("Select * From [Sheet1$]", XLConnection)

Dim XLDataSet Como conjunto de datos = nuevo conjunto de datos ()

XLDataAdapter.Fill (XLDataSet, "Sheet1")

XLDataAdapter.UpdateCommand = New OleDbCommand (_

"ACTUALIZACIÓN [Sheet1 $] SET campo1 =?, Campo2 = ?, field3 =?", XLConnection)

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) .Rows (0) ( "campo1") = 1,000

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

XLDataSet.Tables (0) .Rows (0) ( "field3") = 500,1

XLDataAdapter.Update (XLDataSet, "Sheet1")

XLConnection.Close ()

6 Pulse la tecla "F5" para ejecutar la aplicación.