Come modificare cella di dati di Excel in Visual Basic

May 1

Come modificare cella di dati di Excel in Visual Basic


Imparare a manipolare i dati di Microsoft Office Excel possono risparmiare tempo quando è necessario modificare i valori delle celle cartella di lavoro da un'applicazione Visual Basic. Excel è un foglio di calcolo che fa parte della suite Microsoft Office. Microsoft Visual Basic.NET è un linguaggio di programmazione orientato agli oggetti che è relativamente facile da imparare e da usare. In pochi passi è possibile scrivere codice VB.NET per modificare i valori delle celle in una cartella di lavoro di Excel.

istruzione

1 Creare un nuovo foglio di calcolo Excel e aggiungere i dati seguenti:

Tipo "Field1" in "A1", "Campo2" in "B1" e "Field3" in "C1".

Tipo "1" in "A2", "2" in "B2" e "3" in "C2"

Salva in "C: \" come "manipulateExcel.xls".

2 Avviare Microsoft Visual Basic, fare clic sul menu "File" e selezionare "Nuovo progetto". Fare clic su "Applicazione Windows Form" e selezionare "OK". Fare doppio clic su "Button" nel riquadro "Strumenti" per aggiungere un nuovo pulsante al form.

Fare doppio clic su "Button1" sul modulo per aprire il modulo "Form1.vb".

3 Copiare e incollare il seguente codice in "Public Class Form1" per creare una connessione alla cartella di lavoro di Excel.

conn privata As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _

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

"Extended Properties =" "Excel 8.0; HDR = YES" ""

4 Copiare e incollare il seguente codice sotto "Button1_Click" per aprire "manipulateExcel.xls" e modificare i dati delle celle.

5 Dim XLConnection come nuovo OleDbConnection (conn)

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

Dim XLDataSet Come DataSet = new DataSet ()

XLDataAdapter.Fill (XLDataSet, "Sheet1")

XLDataAdapter.UpdateCommand = Nuovo OleDbCommand (_

"UPDATE [Foglio1 $] SET field1 =?, Field2 = ?, campo3 =?", XLConnection)

XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field1", OleDbType.Numeric) .SourceColumn = "field1"

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

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

XLDataSet.Tables (0) .Rows (0) ( "campo1") = 1000

XLDataSet.Tables (0) .Rows (0) ( "field2") = 10.1

XLDataSet.Tables (0) .Rows (0) ( "campo3") = 500.1

XLDataAdapter.Update (XLDataSet, "Sheet1")

XLConnection.Close ()

6 Premere il tasto "F5" per eseguire l'applicazione.