|
Apprendre à manipuler des données Microsoft Office Excel peut vous faire gagner du temps lorsque vous avez besoin de modifier les valeurs des cellules d'un classeur à partir d'une application Visual Basic. Excel est un tableur qui fait partie de la suite Microsoft Office. Microsoft Visual Basic.NET est un langage de programmation orienté objet qui est relativement facile à apprendre et à utiliser . En quelques étapes, vous pouvez écrire du code VB.NET pour modifier les valeurs des cellules dans un classeur Excel. Instructions
1 Créer une nouvelle feuille de calcul Excel et ajouter les données suivantes :
type " Champ1 " à " A1 ", " Field2 " à "B1" et " Field3 " dans . "C1"
type "1" en "A2" , "2" à "B2" , et "3" en "C2"
Sauvegarde sur "C: \\" comme " manipulateExcel.xls " .
2 Démarrez Microsoft Visual Basic, cliquez sur le menu "Fichier" et sélectionner "Nouveau projet" . Cliquez sur "Application Windows Forms " et sélectionnez " OK". Double- cliquez sur "Button " sur le volet "Outils" pour ajouter un nouveau bouton à votre formulaire .
Double -cliquez sur " Button1" sur le formulaire pour ouvrir le module " Form1.vb " .
3 Copiez et collez le code suivant dans " public Class Form1 " pour créer une connexion à votre classeur Excel.
conn privé As String = " Provider = Microsoft.Jet.OLEDB . 4.0 ; "& _
" Data Source = C: \\ manipulateExcel.xls ; "& _
" Extended Properties = "" Excel 8.0 ; HDR = YES "" " < br > Hôtels 4 Copiez et collez le code suivant sous " Button1_Click " pour ouvrir " manipulateExcel.xls " et de modifier les données de la cellule .
5 XLConnection As New OleDbConnection (conn )
XLDataAdapter As New OleDbDataAdapter ( "SELECT * FROM [ Feuil1 $] " , XLConnection )
XLDataSet As DataSet = new DataSet ()
XLDataAdapter.Fill ( XLDataSet , "Sheet1" )
XLDataAdapter.UpdateCommand = New OleDbCommand (_
" UPDATE [ Sheet1 $ ] SET champ1 = ? , champ2 = ? , field3 =?" , XLConnection )
< p> XLDataAdapter.UpdateCommand.Parameters.Add ( " @ champ1 " , OleDbType.Numeric ) . SourceColumn = " champ1 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field2 " , OleDbType.Currency ) . SourceColumn = " field2 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field3 " , OleDbType.Currency ) . SourceColumn = " field3 "
XLDataSet.Tables (0) . Lignes ( 0) ( " champ1 " ) = 1000 Photos XLDataSet.Tables (0) . lignes ( 0) ( " champ2 " ) = 10.1
XLDataSet.Tables (0) . lignes ( 0) ( " field3 ") = 500,1
XLDataAdapter.Update ( XLDataSet , " Sheet1 " )
XLConnection.Close ()
6 Appuyez sur" F5 " pour exécuter votre application .
|
