• 
  

  hur man manipulerar utmärka celldata i Visual Basic

  
  

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

Relaterade artiklar