Leren hoe u Microsoft Office Excel- gegevens te manipuleren kunt u tijd besparen wanneer u werkmap celwaarden van een Visual Basic-toepassing wijzigen . Excel is een spreadsheetprogramma dat deel uitmaakt van de Microsoft Office suite . Microsoft Visual Basic.NET is een objectgeoriënteerde programmeertaal die is relatief gemakkelijk te leren en te gebruiken . In een paar stappen kunt u VB.NET code schrijven naar cel waarden in een Excel-werkmap te wijzigen . Instructies 1 Maak een nieuwe Excel-spreadsheet en voeg de volgende gegevens : Type " Veld1 " in " A1 " , " Field2 " in " B1 " en " Field3 " in . " C1 " Type " 1 " in " A2 " , " 2 " in " B2 " en " 3 " in " C2 " slaan op " C : \\ " als " manipulateExcel.xls " . Start Microsoft Visual Basic 2 , klikt u op het menu " File " en selecteer " New Project" . Klik op " Windows Forms Application " en selecteer " OK " . Dubbelklik op " knop" op de " Tools" venster naar een nieuwe knop toe te voegen aan uw formulier . Dubbelklik op " Button1 " op uw formulier naar de " Form1.vb " module te openen . < br > Kopieer en plak de volgende code onder " Public Class Form1 " om een verbinding met uw Excel- werkmap te maken 3 . Prive conn As String = " Provider = Microsoft.Jet.OLEDB . 4.0 ; " & _ " data Source = C : \\ manipulateExcel.xls ; " & _ " Uitgebreide eigenschappen = " " Excel 8.0 ; HDR = YES " " " < br > Kopieer 4 en plak de volgende code onder " Button1_Click " naar " manipulateExcel.xls " openen en de cel bewerken . 5 Dim XLConnection als Nieuwe OleDbConnection ( verb ) < br Dim XLDataAdapter > als Nieuwe OleDbDataAdapter ( " SELECT * FROM [ Sheet1 $ ] " , XLConnection ) Dim XLDataSet Zoals DataSet = New DataSet ( ) XLDataAdapter.Fill ( XLDataSet , " Blad1 " ) XLDataAdapter.UpdateCommand = Nieuw OleDbCommand ( _ " UPDATE [ Blad1 $ ] SET veld1 = ? , veld2 = ? , veld3 = ? " , XLConnection ) op XLDataAdapter.UpdateCommand.Parameters.Add ( " @ veld1 " , OleDbType.Numeric ) . SourceColumn = " veld1 " XLDataAdapter.UpdateCommand.Parameters.Add ( " @ veld2 " , OleDbType.Currency ) . SourceColumn = " veld2 " XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field3 " , OleDbType.Currency ) . SourceColumn = " veld3 " XLDataSet.Tables ( 0 ) . Rijen ( 0 ) ( " veld1 " ) = 1000 XLDataSet.Tables ( 0 ) . Rijen ( 0 ) ( " veld2 " ) = 10.1 XLDataSet.Tables ( 0 ) . Rijen ( 0 ) ( " Veld3 " ) = 500,1 XLDataAdapter.Update ( XLDataSet , " Blad1 " ) XLConnection.Close ( ) Press 6 " F5 "om uw toepassing uit te voeren .
|