1 Κάντε κλικ στο κουμπί του μενού "Αρχείο " "New " εντολή οποιασδήποτε εφαρμογής του Office , στη συνέχεια, κάντε κλικ στο " OK " για να δημιουργήσετε ένα νέο έγγραφο . Πατήστε το πλήκτρο " Alt " και " F11 " ταυτόχρονα για να εισέλθετε στο περιβάλλον προγραμματισμού VBA , στη συνέχεια, κάντε διπλό κλικ στο " Αυτό το έγγραφο " στοιχείο στο "Πρόγραμμα " παράθυρο . Το έργο αυτό ανοίγει ένα νέο παράθυρο στο οποίο μπορείτε να πληκτρολογήσετε ή να επικολλήσετε ένα πρόγραμμα VBA . 2
Open στο πρόγραμμα περιήγησής σας στο Web σε μια ιστοσελίδα που θα θέλατε να συμπληρώσετε με VBA . Μετρήστε τον αριθμό των " Tab " πατήματα πλήκτρων που απαιτούνται για να μετακινηθείτε στο πρώτο στοιχείο ελέγχου που θέλετε να συμπληρώσετε . Για παράδειγμα , ας υποθέσουμε ότι η σελίδα που επιλέξαμε ήταν η αρχική σελίδα του " ConceptArt.org , " και το πρώτο στοιχείο ελέγχου που θέλετε να συμπληρώσετε είναι το "Όνομα Χρήστη" ελέγχου. Πατήστε το πλήκτρο " Tab " επανειλημμένα μέχρι ο δρομέας να εισέλθει στο στοιχείο ελέγχου πλαισίου κειμένου . Θα διαπιστώσετε ότι οι δύο " Tab " πληκτρολογήσεις που απαιτούνται για να προχωρήσουμε σε αυτόν τον έλεγχο .
Εικόνων 3
Πληκτρολογήστε την ακόλουθη δήλωση στο παράθυρο προγραμματισμού VBA . Η δήλωση αυτή ενεργοποιεί την ιστοσελίδα που θέλετε να συμπληρώσετε . Αυτό το βήμα είναι απαραίτητο, επειδή η δήλωση SendKeys στέλνει πατήματα πλήκτρων σε όποια εφαρμογή το παράθυρο είναι ενεργό . Πληκτρολογήστε πάνω από το " ConceptArt.org " δείγμα κειμένου με το όνομα που εμφανίζεται στη γραμμή τίτλου της ιστοσελίδας που θέλετε να συμπληρώσετε .
Sub populatePage ( ) AppActivate ( " ConceptArt.org " ) End Sub
Η 4
Πληκτρολογήστε την ακόλουθη δήλωση στο παράθυρο προγραμματισμού VBA . Η δήλωση αυτή μετακινεί το τρέχον σημείο εισαγωγής στο στοιχείο ελέγχου που θέλετε να συμπληρώσετε . Η δήλωση εκτελεί το ισοδύναμο των " Tab " πληκτρολογήσεις που έχετε εισάγει χειροκίνητα . Αντικαταστήστε το " 2 " με τον αριθμό των " Tab " πληκτρολογήσεις που απαιτούνται για να προχωρήσουμε στον έλεγχο που επιλέξατε .
SendKeys " { TAB 2 } "
5
Τύπος τα ακόλουθα: « SendKeys " δήλωση μετά την προηγούμενη . Η δήλωση αυτή συμπληρώνει ένα στοιχείο ελέγχου πλαισίου κειμένου με το κείμενο . Μπορείτε να πληκτρολογήσετε όλο το κείμενο του δείγματος εισάγεται με το κείμενο που θέλετε να συμπληρώσετε τον έλεγχο με .
SendKeys " MyUserName "
Η 6
Count ο αριθμός των " Tab " πληκτρολογήσεις που απαιτούνται να μετακινηθεί από την προηγούμενη ελέγχου που κατοικείται στο επόμενο στοιχείο ελέγχου που θέλετε να συμπληρώσετε . Αυτό είναι το ίδιο έργο με εκείνο που απαιτείται για να κινηθεί προς την πρώτη σε πληθυσμό ελέγχου .
Η 7
Πληκτρολογήστε το " SendKeys " δήλωση που στέλνει τον αριθμό των " Tab " πληκτρολογήσεις που μόλις υπολογίζονται . Πληκτρολογήστε το " SendKeys » δήλωση που στέλνει το κείμενο που θέλετε να συμπληρώσετε το επόμενο έλεγχο με . Για παράδειγμα , εάν η προηγούμενη " SendKeys " δηλώσεις σας κατοικείται το " Όνομα Χρήστη " κουτί κειμένου , μπορείτε να χρησιμοποιήσετε την τρέχουσα " SendKeys " δήλωση για να συμπληρώσετε το "Password " κουτί κειμένου .
8
Γράψτε επιπλέον " SendKeys " δηλώσεις για να μετακινηθείτε και να συμπληρώσετε τα υπόλοιπα στοιχεία ελέγχου που θέλετε να συμπληρώσετε . Εκτελέστε το πρόγραμμά σας πατώντας το πλήκτρο " F5 ". Πρόγραμμά σας θα στείλει τα πατήματα πλήκτρων στην ιστοσελίδα , σαν να στέλνατε τα πλήκτρα πολύ γρήγορα με το χέρι .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα