hvordan man kan manipulere udmærke celle data i Visual Basic

Indlæg af Hanne Mølgaard Plasc     opdateret: 2011-11-22

At lære at manipulere Microsoft Office Excel-data kan spare dig tid , når du har brug for at ændre projektmappe celle væ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 for at ændre celle værdier i en Excel- projektmappe
1
.
Opret en ny Excel- regneark og tilføje følgende oplysninger :

Skriv " Felt1 "i " A1 " , " Felt2 "i " B1 " og " Field3 "I " C1 " .
Type "1 " i " A2 " , "2 " i " B2 " , og " 3 "i " C2 "

Gem det 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å formularen til at åbne " Form1. vb "-modulet .

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

Private forb. As String=" Provider=Microsoft. Jet. OLEDB. 4. 0 ; " _
" Data Source=C : \ manipulateExcel. xls , " _
" Extended Properties=" . " Excel 8,0 ; HDR=YES " ""
4
Kopier og indsæt følgende kode under " Button1_Click " at åbne " manipulateExcel. xls " og redigere data i cellen .
5 .
Dim XLConnection som ny OleDbConnection ( forb. )
Dim XLDataAdapter Som Ny OleDbDataAdapter ( " SELECT * FROM [ Ark1 $ ] " , XLConnection )
Dim XLDataSet Som DataSet=New DataSet ( )
XLDataAdapter . Fyld ( XLDataSet , " Ark1 " )

XLDataAdapter. UpdateCommand=Ny OleDbCommand ( _
" UPDATE [ Ark1 $ ] 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 . Valuta ) . SourceColumn=" field3 "

XLDataSet. Tables (0) . Rækker ( 0 ) ( " field1 " )=1000
XLDataSet. Tables (0) . Rækker ( 0 ) ( " field2 " )=10,1
XLDataSet. Tables (0) . Rækker ( 0 ) ( " field3 " )=500,1


XLDataAdapter. Update ( XLDataSet , " Ark1 " )
XLConnection. Close ( )
6 .
Tryk på " F5 " at køre din ansøgning .


Previous:boolean foreninger Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change