Πώς να στείλετε ένα όνομα χρήστη και κωδικό σε μια ιστοσελίδα με το Excel VBA Κωδικός

γλώσσα προγραμματισμού του Excel , Visual Basic for Applications ( VBA ) , δίνει τη δυνατότητα στους προγραμματιστές του Microsoft Office επεκτείνει τις ικανότητες που έρχονται με το Excel . Ένα παράδειγμα αυτής της επέκτασης είναι ένα πρόγραμμα VBA που μπορούν να εισέλθουν log -in πληροφορίες σε μια ιστοσελίδα και στη συνέχεια να υποβάλει τις πληροφορίες αυτές . Αυτό το μοντέλο είναι μια ιεραρχία εικονικά αντικείμενα που περιέχουν προγραμματιζόμενες λειτουργίες του Excel . Στέλνοντας ένα όνομα χρήστη και έναν κωδικό πρόσβασης σε ένα δικτυακό τόπο με VBA εξοικονομεί χρήστη του προγράμματος σας από την ταλαιπωρία της εισόδου αυτές τις πληροφορίες με το χέρι . Οδηγίες
Η

1 Ανοίξτε το Excel , στη συνέχεια, εμφανίζει το παράθυρο κωδικοποίηση VBA πατώντας το πλήκτρο " Alt - F11 . " 2

Κάντε διπλό κλικ στο στοιχείο που εμφανίζει « Αυτό το βιβλίο εργασίας " στο παράθυρο πλοήγησης τα αριστερά της οθόνης . Αυτό ανοίγει ένα παράθυρο για την εισαγωγή κώδικα για το τρέχον βιβλίο εργασίας .
Εικόνων 3

Πληκτρολογήστε ή επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο που εμφανίζεται . Το πρόγραμμα αυτό απαιτεί τη δήλωση VBA " AppActivate « Για να κατευθύνουν δεδομένα από την τρέχουσα εφαρμογή , Excel , στο πρόγραμμα περιήγησής σας . Η « SendKeys " δήλωση στέλνει πληκτρολογήσεις , το log-in και τον κωδικό πρόσβασης , στην ενεργοποιημένη browser. Το κείμενο " { TAB } " και " ~ " εκπροσωπεί το " Tab " και " Enter" κλειδιά. Η αίτηση δήλωση λέει το Excel για να διακόψετε για λίγο να επιτρέψετε στα Windows και το χρόνο browser σας για να επεξεργαστεί τις ακολουθίες χαρακτήρων που αποστέλλονται σε αυτό .

Public Sub sendPassword ( )

AppActivate " BROWSER_NAME " , True

SendKeys " YOUR_LOGIN_ID " , True

Application.Wait 1000

SendKeys " { TAB } " , True

SendKeys " your_password " , True

Application.Wait 1000

SendKeys " ~" , True

End Sub
Η 4

Αντικαταστήστε το κείμενο " BROWSER_NAME " με το όνομα του προγράμματος περιήγησης ( για παράδειγμα , " Firefox ", " Internet Explorer " και "Google Chrome " ) που θα χρησιμοποιήσετε για να συνδεθείτε στην ιστοσελίδα . Αντικαταστήστε το κείμενο " YOUR_LOGIN_ID , " και " your_password " με το log-in πληροφορίες που ζητά η ιστοσελίδα .
5

Ανοίξτε την ιστοσελίδα που θα θέλατε τον κωδικό σας για να συνδεθείτε .

6

Κάντε κλικ σε μία από τις δηλώσεις του " sendPassword " υπορουτίνας , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε αυτή την υπορουτίνα . Τα Windows θα αποκαταστήσει την εστίαση στο πρόγραμμα περιήγησης πρόγραμμά σας έχει ενεργοποιηθεί . Το πρόγραμμά σας θα πληκτρολογήσετε και στη συνέχεια να στείλει τα στοιχεία log -in θα κωδικοποιούνται σε αυτό .
Η 7

Επικολλήστε τον ακόλουθο αναθεώρηση με το πρώτο πρόγραμμα κάτω από αυτό το πρόγραμμα στο παράθυρο της ανάπτυξης VBA . Αυτή η έκδοση του " sendPassword " θα τεθεί log -in πληροφορίες όχι από κώδικα , αλλά από τις τιμές σε ένα φύλλο εργασίας στο τρέχον βιβλίο εργασίας . Το κύριο πλεονέκτημα αυτής της προσέγγισης είναι η ευκολία αλλαγής των πληροφοριών log-in . Τα δεδομένα που αποθηκεύονται σε ένα φύλλο εργασίας είναι πιο βολικό να αλλάξει ό, τι είναι στον κώδικα του προγράμματος.

Public Sub sendPasswordStoredInWorksheet ( )

Dim login , pword , app

app = ActiveSheet . Cells ( 1 , 1 ) . Value

login = ActiveSheet.Cells ( 2 , 1 ) . Value

pword = ActiveSheet.Cells ( 3 , 1 ) . Value

AppActivate app , True

SendKeys login , True

Application.Wait 1000

SendKeys " { TAB } " , True

SendKeys pword , True

Application.Wait 1000

SendKeys " ~" , True

End Sub
8

Πληκτρολογήστε το όνομα του προγράμματος περιήγησης και να συνδεθείτε σε πληροφορίες που κωδικοποιούνται σε η πρώτη έκδοση του προγράμματος στην κορυφή τρία κελιά του πρώτου φύλλου του βιβλίου εργασίας του Excel .
Η 9

Αποσύνδεση , στο πρόγραμμα περιήγησής σας , από την ιστοσελίδα το πρώτο σας πρόγραμμα συνδεδεμένοι στο , στη συνέχεια επιστρέφουν στο ημερολόγιο του site - στη σελίδα . Εκτελέστε τη νέα έκδοση του προγράμματος , χρησιμοποιώντας τις οδηγίες από το βήμα 6 . Το log-in θα αρχίσει , όπως κάνατε στο βήμα 6 .
Η
εικόνων