Πώς να μεταφέρετε δεδομένα από ένα δέντρο Προβολή κόμβου στο Excel

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

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

Κάντε κλικ στο "Toolbox " παράθυρο και κάντε διπλό κλικ στο " TreeView " για να προσθέσετε ένα νέο " TreeView " έλεγχο στη φόρμα σας . Κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί για να μεταφέρετε δεδομένα από το " TreeView " ελέγχου.
Εικόνων 3

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

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

διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ για το κουμπί και προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε ένα νέο αρχείο Excel και να προσθέσετε το επιλεγμένο κείμενο του κόμβου στο "A1 " :

Dim xlTV Όπως New Excel.Application

xlTV.Visible = True

Dim xlTVwks Όπως Excel.Workbooks = xlTV.Workbooks

Dim xlTVwk Όπως Excel.Workbook = xlTVwks.Add

Dim xlTVshts Όπως Excel.Sheets = xlTVwk.Worksheets

Dim xlTVsht Όπως Excel.Worksheet = xlTVshts ( " Φύλλο1 " )

xlTVsht.Range ( "A1" ) . Value = TreeView1.SelectedNode.Text.ToString

xlTVsht.SaveAs ( " C : \\ dataFromTreeView.xlsx " )
Η

6 Πατήστε το πλήκτρο " F5 " για να τρέξει το πρόγραμμα και να επιλέξετε έναν κόμβο σε η θέα ελέγχου δέντρου . Κάντε κλικ στο " Button1 " για να δημιουργήσετε το αρχείο Excel .
Η
εικόνων