Πώς να αποκτήσετε πρόσβαση υπολογιστικά φύλλα του Excel με Visual Basic 6

Δημιουργία , την πρόσβαση και την προσθήκη ή τη διαγραφή των δεδομένων στο Excel είναι όλα τα δυνατά μέσα από Visual Basic 6 . Μερικές σύντομες γραμμές κώδικα σε Visual Basic θα ολοκληρώσει τις δύο πρώτες δράσεις . Ωστόσο, η αλλαγή των δεδομένων του Excel είναι πιο περίπλοκη και απαιτεί πολύ περισσότερα από ό, τι είναι δυνατόν εξήγηση σε αυτό το άρθρο . Γράφοντας προγράμματα για να γίνει αυτό μπορεί να είναι χρήσιμο αν ο κύριος του έργου θα πρέπει να απλοποιηθεί η χρήση του Excel για ανεκπαίδευτους χρήστες . Χρησιμοποιώντας φόρμες της Visual Basic επιτρέπουν περισσότερη τροποποίηση και την εκπαίδευση από ό, τι θα μπορούσε να είναι δυνατό στο Excel . Οδηγίες
Η

1 Ανοίξτε το πρόγραμμα της Visual Basic της Microsoft 6 ? Κάντε κλικ στο " Αρχείο" και επιλέξτε " Standard.exe " από τον κατάλογο των προτύπων "New Project . " . Μια νέα μορφή θα ανοίξει στην οθόνη , με την ένδειξη " Έργο 1 - . Form1 (Φόρμα) " Κάντε διπλό κλικ τρεις φορές στο εικονίδιο κουμπιών εντολής στον αριστερό πίνακα για να προσθέσετε τρία κουμπιά στη φόρμα . Αποθηκεύστε τη φόρμα με το όνομα αρχείου της επιλογής σας . 2

Κάντε κλικ στο " View" και "Ιδιότητες Σελίδες " ( αυτό μπορεί ήδη να δείχνει στον πίνακα δεξιά ) και κάντε κλικ στο πρώτο κουμπί της φόρμας . Στο παράθυρο διαλόγου Ιδιότητες , κάντε διπλό κλικ στο "Τίτλος " και να αλλάξετε το κείμενο στο "Άνοιγμα Υπάρχον φύλλο εργασίας . " Αλλάξτε το δεύτερο λεζάντα κουμπί " Δημιουργία νέου φύλλου εργασίας . " Επαναλάβετε για το τρίτο κουμπί , αλλά να αλλάξει αυτή την λεζάντα "Exit ". Drag οι πρώτες δύο κουμπιά έτσι ώστε να είναι απέναντι από το άλλο . Τοποθετήστε το τρίτο κάτω από τα άλλα δύο .
Εικόνων 3

Κάντε διπλό κλικ στο κουμπί " Άνοιγμα υπάρχουσας φύλλο" . Αυτό αλλάζει την προβολή από το " Object" σε " κώδικας" και εισάγει μια νέα διαδικασία . Πληκτρολογήστε αυτές τις γραμμές , όπως ακριβώς εμφανίζονται μεταξύ του " Private Sub Command1_Click ( )" και " End Sub ", το οποίο πρέπει να υπάρχει ήδη .

Επιλογή ExplicitDim MyExcel Όπως New Excel.ApplicationDim MyWorkbook Όπως Excel . WorkbookDim MyWorksheet Όπως Excel.WorksheetDim όνομα αρχείου ως StringFileName = InputBox ( " Πληκτρολογήστε το πλήρες όνομα και τη θέση του αρχείου Excel " ) Set MyWorkbook = MyExcel.Workbooks.Open ( όνομα αρχείου ) Ορισμός MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True

4

κάντε διπλό κλικ στο " Δημιουργία νέου φύλλου εργασίας " και πληκτρολογήστε αυτές τις γραμμές κώδικα .

Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Φύλλο1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
5

Τελειώστε τον κώδικα κάνοντας διπλό κλικ στο κουμπί " Έξοδος " για τη μορφή και το είδος αυτών των γραμμών .

MyExcel.QuitEnd

6

Δοκιμάστε το πρόγραμμα πατώντας το πλήκτρο " F5 ". Εάν δεν λειτουργεί , πηγαίνετε πίσω και ελέγξτε τον κωδικό . Θα πρέπει να είναι ακριβείς . Εάν λάβετε ένα μήνυμα λάθους λέγοντας ότι το υπάρχον αρχείο δεν μπορεί να βρεθεί , ελέγξτε τη θέση και βεβαιωθείτε ότι έχετε εισήλθε ακριβώς . Όταν όλα λειτουργούν , κάντε κλικ στο "Αρχείο " και στη συνέχεια "Δημιουργία " και να ακολουθήσετε αυτό το όνομα θα ανατεθεί το έργο από την αρχή . Αυτό θα δημιουργήσει ένα εκτελέσιμο έκδοση μπορείτε να εκτελέσετε άμεσα .
Η
εικόνων