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

Opprett en ny Excel-regneark og legge til følgende data : en

Type " Felt1 " in " A1 ", " felt2 " in " B1 " og " Field3 " i . " 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 for å legge til en ny knapp i skjemaet .

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


3

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

Private conn As String = " Provider = Microsoft.Jet.OLEDB . 4,0 ; "& _

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

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

4

Kopier og lim inn følgende kode under " button1_click " for å åpne " manipulateExcel.xls " og redigere cellen data .
5

Dim XLConnection som ny OleDbConnection ( conn )

Dim XLDataAdapter som ny OleDbDataAdapter ( "Select * Fra [ Ark1 $] " , XLConnection )

Dim XLDataSet Som datasett = Ny datasett ( )

XLDataAdapter.Fill ( XLDataSet , " Ark1 ")

XLDataAdapter.UpdateCommand = Ny OleDbCommand (_

"OPPDATERING [ Ark1 $] SET field1 = ? , felt2 = ? , field3 = ? " , XLConnection )
< p> XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field1 " , OleDbType.Numeric ) . SourceColumn = " field1 "

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

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

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

XLDataSet.Tables ( 0 ) . Rader ( 0 ) ( " felt2 ") = 10,1

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

XLDataAdapter.Update ( XLDataSet , " Ark1 ")

XLConnection.Close ( )
6

Trykk" F5 "for å kjøre programmet .