Πώς να διαβάσετε Γραμμές Excel σε VB.NET

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

Εκκίνηση του Microsoft Excel και πληκτρολογήστε "Όνομα" στο κελί " A1 ", " Ηλικία " σε " B1 ", " John" σε " A2 ", " 10 " σε " B2 ", " Susan " σε" Α3 "," 15 "σε " Β3 "," Τομ "σε " Α4 "," 10 "σε " Β4 "," βαρίδι " σε" Α5 "και" 10 "σε " B5 ". Αποθηκεύστε το υπολογιστικό φύλλο στο " C : \\ " ως " ExcelFile.xlsx . " 2
Κλείστε το Excel .

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

διπλό κλικ στο " πλαίσιο λίστας " από το " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας σε το έντυπο . Προσθέστε ένα νέο κουμπί , χρησιμοποιώντας την ίδια τεχνική .
Η 4

διπλό κλικ στη φόρμα για να δημιουργήσετε ένα συμβάν φόρτωσης της φόρμας . Προσθέστε τον ακόλουθο κώδικα για να καθορίσουν τη διαδρομή από το υπολογιστικό φύλλο του Excel που θέλετε να διαβάσετε και να δημιουργήσει τις μεταβλητές αντικείμενο που θα χρησιμοποιήσετε για να διαβάσετε το αρχείο :

Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ ExcelFile.xlsx ? Επέκταση Properties = Excel 12.0 ? "

Dim MyConnection Όπως OleDbConnection = Νέα OleDbConnection

Dim ds Όπως DataSet

Dim da Όπως OleDbDataAdapter

Dim strSQL Όπως String
5

Ορίστε το string SQL για την αναζήτηση γραμμές όπου " Εποχή" είναι ίσο με το 10 και να διαβάσετε το φύλλο εργασίας του Excel , χρησιμοποιώντας έναν προσαρμογέα δεδομένων και ένα σύνολο δεδομένων .

strSQL = "SELECT ΟΝΟΜΑ , ΗΛΙΚΙΑ ΑΠΟ [ Φύλλο1 $ ] WHERE Age = 10 "

myConnection.ConnectionString = connString

da = Νέα OleDbDataAdapter ( strSQL , MyConnection )

ds = New DataSet

da.Fill (ds , " datatable " )

myConnection.Close ( )
Η 6

Διαβάστε τα δεδομένα που επιστρέφονται από τα στοιχεία που και να το αποθηκεύσετε στο " ExcelRows " global array για μελλοντική χρήση .

Δημ. excelData = ds.Tables ( " datatable " ) . AsEnumerable ( )

Δημ. rowQuery = από το p Σε excelData _

Επιλέξτε p ! ΕΠΩΝΥΜΙΑ, p ! AGE

rowCntReturned = rowQuery.Count

ExcelRows = rowQuery.ToArray
Η 7

Προσθήκη οι ακόλουθες παγκόσμιες μεταβλητές πάνω από το " Form1_Load " συμβάν:

Δημ. ExcelRows

Dim rowCntr As Integer

Dim rowCntReturned As Integer
8

Switch πίσω στο σχεδιασμό φόρμας και κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ. Προσθέστε τον ακόλουθο κώδικα για να προσθέσετε μία γραμμή τη φορά στο στοιχείο ελέγχου πλαισίου λίστας .

Αν ( rowCntr

Me.ListBox1.Items.Add ( ExcelRows ( rowCntr ) )

rowCntr + = 1

End If

9

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 " για να προσθέσετε την πρώτη γραμμή του υπολογιστικού φύλλου . Κάντε πάλι κλικ στο κουμπί για να προσθέσετε τη δεύτερη σειρά και κάντε κλικ σε αυτό για μια τελευταία φορά για να προστεθεί η τρίτη σειρά στο στοιχείο ελέγχου πλαισίου λίστας .
Η
εικόνων