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 ". Εάν δεν λειτουργεί , πηγαίνετε πίσω και ελέγξτε τον κωδικό . Θα πρέπει να είναι ακριβείς . Εάν λάβετε ένα μήνυμα λάθους λέγοντας ότι το υπάρχον αρχείο δεν μπορεί να βρεθεί , ελέγξτε τη θέση και βεβαιωθείτε ότι έχετε εισήλθε ακριβώς . Όταν όλα λειτουργούν , κάντε κλικ στο "Αρχείο " και στη συνέχεια "Δημιουργία " και να ακολουθήσετε αυτό το όνομα θα ανατεθεί το έργο από την αρχή . Αυτό θα δημιουργήσει ένα εκτελέσιμο έκδοση μπορείτε να εκτελέσετε άμεσα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα