Πώς να πάρει μια τιμή από ένα φύλλο εργασίας χρησιμοποιώντας VB

πάρει μια τιμή από ένα φύλλο εργασίας του Excel χρησιμοποιώντας τη Visual Basic να κάνετε την αίτησή σας πιο ευέλικτη από την ανάγνωση του φύλλου εργασίας δυναμικά , αντί ο χρήστης έχει εισέλθει αξίες με το χέρι . Αυτό το έργο μπορεί εύκολα να επιτευχθεί με τη χρήση στη βιβλιοθήκη αντικειμένων του Microsoft Excel . Οι προγραμματιστές, συχνά τρέχει σε μπελάδες ανάγνωση φύλλα εργασίας , επειδή ξεχνούν να καθορίσει το κελί στο φύλλο εργασίας ως " Excel.Range " τύπο δεδομένων . Μόλις γίνει αυτό , μπορείτε να διαβάσετε εύκολα τα δεδομένα των κελιών χρησιμοποιώντας το "Value " ιδιοκτησίας. Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και να επεκτείνουν " Visual Basic " κάτω " Εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Εφαρμογή κονσόλας " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο της κονσόλας . 2

Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Ιδιότητες " . Κάντε κλικ στην επιλογή "Αναφορές " και στη συνέχεια επιλέξτε "Προσθήκη " . Επιλέξτε " COM " και κάντε κλικ στο " Microsoft Excel βιβλιοθήκη αντικειμένων " . Κάντε κλικ στο " OK".
Εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα στην πρώτη γραμμή της μονάδας για να δηλώσει το χώρο ονομάτων του Microsoft Office :

Εισαγωγές Microsoft.Office.Interop
Φτηνές 4

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

Dim valueRead Όπως String Dim

xlsxApp Όπως Excel . Εφαρμογή = Νέα Excel.Application

xlsxApp.DisplayAlerts = False

xlsxApp.Workbooks.Open ( " C : \\ ExcelWorksheet.xlsx " )
5

Επεξεργασία η διαδρομή και το όνομα του φύλλου εργασίας στο προηγούμενο βήμα και πληκτρολογήστε τη διαδρομή και το όνομα του φύλλου εργασίας σας . Προσθέστε τον ακόλουθο κώδικα για να χρησιμοποιήσετε το " Φύλλο1 ", όπως το φύλλο ως εξής:

Dim xlsxSht Όπως Excel.Worksheet = xlsxApp.Sheets ( 1 )
Η 6

Ορίστε το κελί που θέλετε να διαβάστε και διαβάστε την τιμή :

Dim xlsxRange Όπως Excel.Range = xlsxSht.Cells ( 1 , 1 )

valueRead = xlsxRange.Value

xlsxApp = Τίποτα
Σελίδα 7

Ένδειξη της τιμής διαβάσει μέσα από το παράθυρο της κονσόλας :

Console.WriteLine ( valueRead )

Console.ReadLine ( )
8

τύπου " F5 " για να εκτελέσετε το πρόγραμμα .
Η
εικόνων