תוֹכֶן
שפת התכנות של Visual Basic for Applications (VBA) מאפשרת למתכנתים של Microsoft Office להרחיב את היכולות המקוריות של Excel. דוגמה לכך היא תוכנית VBA שיכולה להזין פרטי חשבון לדף אינטרנט ולשלוח מידע זה. תבנית זו היא היררכיה של אובייקטים וירטואליים המכסים את התכונות הניתנות לתכנות של Excel. שליחת שם משתמש וסיסמה לאתר אינטרנט עם VBA חוסכת את המשתמש מאי הנוחות של הזנת המידע שלהם באופן ידני.
הוראות
אתה יכול לעשות דברים מדהימים ב- Excel (Photos.com/Photos.com/Getty Images)-
פתח את Excel והצג את חלון הקוד VBA על-ידי הקשה על Alt + F11.
-
לחץ פעמיים על הפריט המציג את "חוברת עבודה זו" בחלונית הניווט בצד שמאל של המסך. פעולה זו תפתח חלון להזנת קודים בחוברת העבודה הנוכחית.
-
הקלד או הדבק את התוכנית הבאה בחלון שמופיע. תוכנית זו מכנה את ההצהרה VBA "AppActivate" כדי לכוון את ערך היישום הנוכחי (Excel) לדפדפן שלך. ההצהרה "SendKeys" שולחת את המידע שהוזן, את פרטי החשבון ואת הסיסמה לדפדפן המאופשר. הטקסט "{TAB}" ו- "~" מייצגים את המקשים "Tab" ו- "Enter". "יישום" הצהרה אומר Excel להשהות במהירות על מנת לאפשר Windows ואת הדפדפן זמן לעבד את מה שהקלדת ושלח אותו.
SubKeys "TrueTeys", נכון SendKeys "SUA_SENHA", נכון Application.Wait 1000 SendKeys "~", True End Sub
-
החלף את הטקסט "NAVIGATION_NAME" בשם הדפדפן שלך (לדוגמה: "Firefox", "Internet Explorer" או "Google Chrome") שבהם תשתמש כדי לגשת לחשבון דף האינטרנט. החלף את הטקסט "YOUR_USERNAME" ו- "SUA_SENHA" עם פרטי הגישה לחשבון שהדף דורש.
-
פתח את דף האינטרנט שברצונך לגשת אליו.
-
לחץ על אחת מההצהרות בשגרת "SendPassword" ולאחר מכן הקש על "F5" כדי לסובב את השגרת. Windows יחזיר את המיקוד לדפדפן שהתוכנה שלך מופעלת. התוכנית שלך תזין ותשלח מידע גישה לחשבון שהזנת בקוד.
-
הדבק את הגרסה הבאה בתוכנית הראשונה שמתחת לתוכנית שכבר נמצאת בחלון הפיתוח של VBA. גרסה זו של "sendPassword" לא תזין פרטי חשבון עבור הקוד שלך, אלא ערכים בגליון עבודה של חוברת העבודה הנוכחית. היתרון העיקרי של זה הוא הנוחות של שינוי פרטי הכניסה. הנתונים המאוחסנים בגליון העבודה נוח יותר לשינוי מאשר קודי תכנות.
(1, 1) .Walue login = ActiveSheet.Cells (2, 1) .Value pword = ActiveSheet.Cells (3, 1). יישום AppActivate, כניסה אמיתית SendKeys, נכון Application.Wait 1000 SendKeys "{TAB}", נכון SendKeys pword, נכון Application.Wait 1000 SendKeys "~", נכון
סוף תת
-
הזן את שם הדפדפן ואת פרטי הכניסה שהיו בקוד של הגרסה הראשונה של התוכנית בשלושת התאים הראשונים של גליון העבודה הראשון של חוברת העבודה של Excel.
-
בדפדפן, התנתק מחשבון האתר שהתוכנית הראשונה ניגשה אליו וחזרה לדף הכניסה לאתר. הפעל את הגירסה החדשה של התוכנית באמצעות ההנחיות בשלב 6. ההפעלה של חשבון זה תתחיל כמו בשלב 6.