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 ett Visual Basic-program . 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 och använda. I några få steg kan du skriva VB. NET kod för att ändra cell värden i en Excel -arbetsbok
1
.
Skapa ett nytt Excel-ark och lägga till följande uppgifter :
Skriv " Fält1 " i " A1 ", " Fält2 " i " B1 "och " Field3 " i " C1 " .
Skriv " 1 "i " A2 " , "2 " i " B2 " , och " 3 "i " C2 "
Spara den 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 " om du vill lägga till en ny knapp i formuläret .
Dubbelklicka på " Button1 " på formuläret för att öppna " Form1. vb " modul .
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 , " _
" Extended Properties=" . " Excel 8. 0 , HDR=JA "" "
4
Kopiera och klistra in Följande kod under " Button1_Click " att öppna " manipulateExcel. xls " och redigera cellen data .
5 .
Dim XLConnection som ny OleDbConnection ( conn )
Dim XLDataAdapter som ny OleDbDataAdapter ( " SELECT * FROM [ Blad1 $ ] " , XLConnection )
Dim XLDataSet Som DataSet=Nya DataSet ( )
XLDataAdapter . Fill ( XLDataSet , "Blad1 " )
XLDataAdapter. UpdateCommand=Nya OleDbCommand ( _
" UPDATE [ Tabell1 $ ] SET fält1=? , fält2=? , field3=? " , XLConnection )
XLDataAdapter. UpdateCommand. Parameters. Add ( " @ fält1 " , OleDbType. Numeric ) . SourceColumn=" fält1 "
XLDataAdapter. UpdateCommand. Parameters. Add ( " @ field2 " , OleDbType. Currency ) . SourceColumn=" field2 "
XLDataAdapter. UpdateCommand. Parameters. Add ( " @ field3 " , OleDbType . Valuta) . SourceColumn=" field3 "
XLDataSet. Tables (0) . Rader (0 ) ( " fält1 " )=1000
XLDataSet. Tables (0) . Rader (0 ) ( " field2 " )=10,1
XLDataSet. Tables (0) . Rader (0 ) ( " field3 " )=500,1
XLDataAdapter. Update ( XLDataSet , "Blad1 " )
XLConnection. Close ( )
6 .
Tryck på " F5 "För att köra din ansökan .
Previous:nothing Next:hur de kan förmedla data mellan Word-dokument med VBA