Πώς να χειραγωγήσουν δεδομένων του Excel κυττάρων σε Visual Basic

Μαθαίνοντας πώς να χειριστούν τα δεδομένα του Microsoft Office Excel μπορεί να σας εξοικονομήσει χρόνο που θα χρειαστεί να αλλάξετε τις τιμές του βιβλίου εργασίας κυττάρων από εφαρμογή της Visual Basic . Excel είναι μια εφαρμογή λογιστικών φύλλων που είναι μέρος της σουίτας Microsoft Office . Microsoft Visual Basic.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού που είναι σχετικά εύκολο να μαθαίνουν και να χρησιμοποιούν . Σε μερικά βήματα μπορείτε να γράψετε τον κωδικό VB.NET να τροποποιήσετε τις τιμές των κελιών σε ένα βιβλίο εργασίας του Excel . Οδηγίες
Η

1 Δημιουργήστε ένα νέο υπολογιστικό φύλλο Excel και προσθέστε τα ακόλουθα στοιχεία :

Τύπος " Πεδίο1 " σε " A1 " , " Field2 " σε " B1 " και " Πεδίο3 " σε " C1 "

τύπου " 1 " σε " A2 " , " 2 " σε " B2 " , και " 3 " σε " C2 "

να " C : \\ " Αποθήκευση . ως " manipulateExcel.xls " . 2

Ξεκινήστε το Microsoft Visual Basic , κάντε κλικ στο μενού "Αρχείο" και επιλέξτε " New Project" . Κάντε κλικ στο " Windows Forms Application " και επιλέξτε " OK" . Κάντε διπλό κλικ στο " κουμπί" για την " Εργαλεία" παράθυρο για να προσθέσετε ένα νέο κουμπί στη φόρμα σας .

Διπλό κλικ στο " Button1 " στη φόρμα σας για να ανοίξετε τη μονάδα " Form1.vb "
<. br > με 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο " Public Class Form1 " για να δημιουργήσετε μια σύνδεση στο βιβλίο εργασίας του Excel .

Ιδιωτική conn As String = " Provider = Microsoft.Jet.OLEDB . 4.0 ? " & _

" Πηγή δεδομένων = C : \\ manipulateExcel.xls ? " & _

" Extended Properties = " " Excel 8.0 ? HDR = ΝΑΙ " " "
Φτηνές 4

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο " Button1_Click " να ανοίξει " manipulateExcel.xls » και να επεξεργαστείτε τα δεδομένα ενός κελιού .
5

Dim XLConnection Όπως New OleDbConnection ( conn )

Dim XLDataAdapter Όπως New OleDbDataAdapter ( "Επιλογή * Από [ Φύλλο1 $ ] " , XLConnection )

Dim XLDataSet Όπως DataSet = New DataSet ( )

XLDataAdapter.Fill ( XLDataSet , " Φύλλο1 " )

XLDataAdapter.UpdateCommand = Νέα OleDbCommand ( _

"UPDATE [ $ Φύλλο1 ] SET field1 =? , field2 =? , Πεδίο3 =?" , XLConnection )

XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field1 " , OleDbType.Numeric ) . SourceColumn = " field1 "

XLDataAdapter.UpdateCommand.Parameters.Add ( "@ field2 " , OleDbType.Currency ) . SourceColumn = " field2 "

XLDataAdapter.UpdateCommand.Parameters.Add ( "@ Πεδίο3 " , OleDbType.Currency ) . SourceColumn = " Πεδίο3 "

XLDataSet.Tables ( 0 ) . Γραμμές ( 0 ) ( " field1 " ) = 1000

XLDataSet.Tables ( 0 ) . Γραμμές ( 0 ) ( " field2 " ) = 10,1

XLDataSet.Tables ( 0 ) . Γραμμές ( 0 ) ( " Πεδίο3 " ) = 500.1

XLDataAdapter.Update ( XLDataSet , " Φύλλο1 " )

XLConnection.Close ( )
Η

6 Πατήστε το πλήκτρο" F5 " για να εκτελέσετε την εφαρμογή σας .
Η
εικόνων