Hvordan manipulere Excel Cell data i Visual Basic

Lære å manipulere Microsoft Office Excel-data kan du spare tid når du trenger å endre arbeidsbok celleverdier fra et Visual Basic-program. Excel er et regnearkprogram som er en del av Microsoft Office-pakken. Microsoft Visual Basic.NET er et objektorientert programmeringsspråk som er relativt enkelt å lære og bruke. I noen få trinn kan du skrive VB.NET kode for å endre celleverdier i et Excel-arbeidsbok.

Bruksanvisning

1 Opprett en ny Excel regneark og legg til følgende data:

Skriv "Felt1" i "A1", "Felt 2" i "B1", og "Field3" in "C1".

Type "1" i "A2", "2" i "B2", og "3" i "K2"

Lagre den på "C: \" som "manipulateExcel.xls".

2 Start Microsoft Visual Basic, klikker du på "File" -menyen og velg "New Project". Klikk på "Windows Forms Application" og velg "OK". Dobbeltklikk på "Button" på "Verktøy" -panelet å legge til en ny knapp i skjemaet.

Dobbeltklikk på "Button1" på skjemaet for å åpne "Form1.vb" modul.

3 Kopier og lim inn følgende kode under "Public Class Form1" for å opprette en tilkobling til Excel-arbeidsbok.

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

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

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

4 Kopier og lim inn følgende kode under "button1_click" for å åpne "manipulateExcel.xls" og redigere celledata.

5 Dim XLConnection som ny OleDbConnection (conn)

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

Dim XLDataSet Som datasett = nytt datasett ()

XLDataAdapter.Fill (XLDataSet "Ark1")

XLDataAdapter.UpdateCommand = Ny OleDbCommand (_

"UPDATE [Sheet1 $] SET field1 =, field2 = ?, field3 =?", XLConnection)

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

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

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

XLDataSet.Tables (0) .Rows (0) ( «field1») = 1000

XLDataSet.Tables (0) .Rows (0) ( «field2») = 10.1

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

XLDataAdapter.Update (XLDataSet "Ark1")

XLConnection.Close ()

6 Trykk "F5" for å kjøre applikasjonen.