Att lära sig att manipulera Microsoft Office Excel-data kan du spara tid när du behöver ändra värden arbetsbok cell från en Visual Basic applikation . Excel är ett kalkylprogram som är en del av Microsoft Office-paketet . Microsoft Visual Basic.NET är ett objektorienterat programmeringsspråk som är relativt lätt att lära sig och använda . I några steg du kan skriva VB.NET kod för att ändra cellvärden i en Excel-arbetsbok . Instruktioner
1
Skapa en ny Excel och lägga till följande uppgifter :
Type " Field1 " i " A1 " , " Fält2 " i " B1 " och " Field3 " i . " C1 "
Type " 1 " i " A2 " , " 2 " i " B2 " , och " 3 " i " C2 "
Spara det till " C : \\ " som " manipulateExcel.xls " .
2
Starta Microsoft Visual Basic , klicka på " Arkiv " -menyn och välj " Nytt projekt " . Klicka på " Windows Forms Application " och välj " OK " . Dubbelklicka på " knappen " på " Verktyg " rutan för att lägga till en ny knapp i formuläret .
Dubbelklicka på " Button1 " på formuläret för att öppna " Form1.vb " modul .
Billiga 3
Kopiera och klistra in följande kod under " public class Form1 " för att skapa en anslutning till din Excel- arbetsbok .
Privat conn As String = " Provider = Microsoft.Jet.OLEDB . 4.0 , " & _
" Data Source = C: \\ manipulateExcel.xls , "& _
" Utökade Egenskaper = " " Excel 8.0 , HDR = YES " " "
4
Kopiera och klistra in följande kod under " Button1_Click " för att öppna " manipulateExcel.xls " och redigera celldata .
5
Dim XLConnection som New OleDbConnection ( conn )
Dim XLDataAdapter Som New OleDbDataAdapter ( " SELECT * FROM [ Blad1 $ ] " , XLConnection ) katalog
Dim XLDataSet Som DataSet = New DataSet ( ) katalog
XLDataAdapter.Fill ( XLDataSet , " Blad1 " ) katalog
XLDataAdapter.UpdateCommand = Ny OleDbCommand ( _
" UPDATE [ Blad1 $ ] SET fält1 = ? , fält2 = ? , field3 = ? " , XLConnection ) katalog < p> XLDataAdapter.UpdateCommand.Parameters.Add ( " @ fält1 " , OleDbType.Numeric ) . SourceColumn = " fält1 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ fält2 " , OleDbType.Currency ) . SourceColumn = " fält2 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field3 " , OleDbType.Currency ) . SourceColumn = " field3 "
XLDataSet.Tables ( 0 ) . rader ( 0 ) ( " fält1 " ) = 1000
XLDataSet.Tables ( 0 ) . rader ( 0 ) ( " fält2 " ) = 10,1
XLDataSet.Tables ( 0 ) . rader ( 0 ) ( " field3 " ) = 500,1
XLDataAdapter.Update ( XLDataSet , " Blad1 " ) katalog
XLConnection.Close ( )
6
Tryck " F5 " för att köra programmet . Addera
