At lære at manipulere Microsoft Office Excel-data kan du spare tid, når du har brug for at ændre projektmappe celleværdier fra en Visual Basic-program . Excel er et regnearksprogram , der er en del af Microsoft Office-pakken. Microsoft Visual Basic.NET er en objektorienteret programmeringssprog, der er relativt let at lære og bruge . I et par trin, du kan skrive VB.NET kode til at ændre celleværdier i en Excel-projektmappe . Instruktioner
1

Opret et nyt Excel- regneark, og tilføje følgende data : Hej

Type " Felt1 " i " A1 ", " Felt2 " i " B1 " og " området3 " i . "C1 "

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

Gem til "C: \\ " som " manipulateExcel.xls ".
2

Start Microsoft Visual Basic, skal du klikke på menuen "Filer" og vælg " Nyt projekt " . Klik på "Windows Forms Application " og vælg " OK". Dobbeltklik på " Button " på " Funktioner" ruden for at tilføje en ny knap til formularen .

Dobbeltklik på " Button1 " på din formular til at åbne " Form1.vb "-modulet .
< br >
3

Kopier og indsæt følgende kode under " Public Class Form1 " for at oprette en forbindelse til din Excel-projektmappe .

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

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

" Extended Properties = "" Excel 8.0; HDR = JA "" " < br >
4

Kopier og indsæt følgende kode under " Button1_Click " for at åbne " manipulateExcel.xls " og redigere data i cellen .
5.

Dim XLConnection Som New OleDbConnection ( forbind ) < br >

Dim XLDataAdapter Som New OleDbDataAdapter ( "Vælg * Fra [ Ark1 $] " , XLConnection )

Dim XLDataSet Som DataSet = Ny DataSet ()

XLDataAdapter.Fill ( XLDataSet , " Ark1 " )

XLDataAdapter.UpdateCommand = Ny OleDbCommand (_

" UPDATE [ Ark1 $] SET felt1 = ? , field2 = ? , området3 = ? " , XLConnection )
< p> XLDataAdapter.UpdateCommand.Parameters.Add ( " @ felt1 " OleDbType.Numeric ) . SourceColumn = " felt1 "

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

XLDataAdapter.UpdateCommand.Parameters.Add ( " @ området3 " , OleDbType.Currency ) . SourceColumn = " området3 "

XLDataSet.Tables (0) . Rækker (0) ( " felt1 " ) = 1000

XLDataSet.Tables (0). Rækker (0) ( " felt2 " ) = 10.1

XLDataSet.Tables (0). Rækker (0) ( " området3 " ) = 500,1

XLDataAdapter.Update ( XLDataSet , " Ark1 " )

XLConnection.Close ()
6

Tryk på" F5 "for at køre din ansøgning .