Πώς να τρέξει μια εφαρμογή των Windows με το Excel VBA

Σε ορισμένες περιπτώσεις , μπορεί να θέλετε να ανοίξετε μια δεύτερη εφαρμογή των Windows , ενώ εξακολουθούν να λειτουργούν σε κάποια άλλη εφαρμογή , όπως το Excel . VBA , μικρή για τη Visual Basic for Applications , παρέχει μια μέθοδο που χρησιμοποιούν μερικές γραμμές κώδικα για να καλέσει άλλη εφαρμογή, όπως το Microsoft Word , ενώ συνεργάζεται με το Excel . Αν θα μπορούσατε να κάνετε το ίδιο πράγμα με την απλή χρήση του "Start" εντολή για να ανοίξει την δεύτερη εφαρμογή , χρησιμοποιώντας VBA κάνει το δεύτερο πρόγραμμα τρέχει ασύγχρονα . Δηλαδή , ο έλεγχος επιστρέφει αμέσως στο Excel, το οποίο συνεχίζει να εκτελούν υπολογισμούς χωρίς να αλλάζει την άλλη εφαρμογή με το χέρι. Οδηγίες
Η

1 Ανοίξτε ένα νέο βιβλίο εργασίας στο Microsoft Excel . Κάντε κλικ στην καρτέλα "Προγραμματιστής " στο μενού ανώτερου επιπέδου . Εάν δεν βλέπετε αυτήν την επιλογή , κάντε κλικ στο κουμπί " Office " στην επάνω αριστερή γωνία του Excel . Επιλέξτε " Επιλογές του Excel " από το παράθυρο και κάντε κλικ στο πλαίσιο δίπλα στην επιλογή " Εμφάνιση καρτέλας Προγραμματιστής στην κορδέλα . " Κάντε κλικ στο κουμπί "OK". 2

Κάντε κλικ στην καρτέλα " Visual Basic" εμφανίζεται τώρα στη γραμμή επιλογών Developer . Αυτό ανοίγει ένα Visual Basic for Applications παράθυρο ( VBA ) ανάπτυξης .
Εικόνων 3

Κάντε κλικ στο " View" στην κορυφή της λίστας του μενού στο παράθυρο της ανάπτυξης . Κάντε κλικ στο " Code" από το drop -down λίστα

Εισάγετε τον παρακάτω κωδικό : .

Private Sub CommandButton1_Click ( ) Dim AppName Όπως String'The επόμενη γραμμή δημιουργεί έναν τρόπο για να επιλέξετε το παράθυρα app'AppName = InputBox ( " πληκτρολογήστε τη διαδρομή και το όνομα του εκτελέσιμου της εφαρμογής" ) « Η επόμενη γραμμή δείχνει πώς μπορείτε να εισαγάγετε τη διαδρομή και το όνομα του εκτελέσιμου αρχείου για την app'AppName = " C : \\ Program Files ( x86) \\ Microsoft Office \\ Office12 \\ winword.exe » « Αν το App είναι στην κανονική πορεία , όπως το Word , το σημειωματάριο , Excel IE , και άλλα πρότυπα της Microsoft »είναι , τότε δεν χρειάζεται την πλήρη διαδρομή . Εισάγετε απλά το πραγματικό εκτελέσιμο πρόγραμμα όπως see.AppName = " winword.exe " Shell AppName , vbNormalFocusEnd Sub

Σημείωση : Οι γραμμές που ξεκινούν με αποστρόφους δεν εκτελούν
Η 4

. Επιστροφή στην οθόνη του φύλλου εργασίας , εν μέρει κρυμμένη πίσω από τα παράθυρα κωδικοποίησης . Κάντε κλικ στο εικονίδιο κάτω - δείχνει στο "Εισαγωγή" καρτέλα του μενού Developer . Κάντε διπλό κλικ στο εικονίδιο "Command Button " στην ενότητα " Στοιχεία ελέγχου ActiveX " . Αυτό προσθέτει το κουμπί στο φύλλο εργασίας του Excel με το προεπιλεγμένο όνομα της " CommandButton1 . " Σύρετε αυτό το κουμπί με το ποντίκι σε ένα out-of - the-τρόπο θέση στο φύλλο εργασίας σας . Κάντε διπλό κλικ στο κουμπί για να βεβαιωθείτε ότι ο κωδικός που έχετε εισάγει στο Βήμα 3 εμφανίζεται . Αν δεν το κάνει , ελέγξτε την οθόνη κώδικα , ιδίως για την εξασφάλιση του ονόματος του Sub ( υπορουτίνα ) παραπάνω ταιριάζει με το όνομα στο κουμπί εντολής .
5

Αποθηκεύστε το υπολογιστικό φύλλο ως μακρο -enabled έκδοση . Κλείστε το αρχείο υπολογιστικού φύλλου . Ανοίξτε ξανά , και όταν προειδοποίησε για την εκτέλεση των μακροεντολών , επιλέξτε το " Ενεργοποίηση μακροεντολών " επιλογή .
Η 6

Κάντε κλικ στο " Home" στο μενού ανώτερου επιπέδου . Κάντε κλικ στο κουμπί που δημιουργήσατε στο φύλλο εργασίας και το Microsoft Word θα ανοίξει . Επιστροφή στην ενότητα κώδικα VBA και να αλλάξει τις γραμμές κώδικα για να ταιριάζει με τις εφαρμογές που θέλετε να εκτελέσετε . Αφαιρέστε την απόστροφο στη γραμμή που αρχίζει από " ' Box AppName = Input" για να το κάνετε εκτελέσιμο . Στη συνέχεια θα σας ζητηθεί για μια εφαρμογή . Διαγράψτε τις γραμμές που αρχίζουν με την AppName = " winword.exe » και « AppName = " C : \\ Program Files " , έτσι ώστε να μπορεί να τρέξει οποιαδήποτε εφαρμογή θέλετε
Η
εικόνων .