เนื้อหา

• คำสั่ง

ภาษาการเขียนโปรแกรม Visual Basic for Applications (VBA) อนุญาตให้โปรแกรมเมอร์ Microsoft Office ขยายขีดความสามารถดั้งเดิมของ Excel ตัวอย่างนี้เป็นโปรแกรม VBA ที่สามารถป้อนข้อมูลบัญชีลงในหน้าเว็บและส่งข้อมูลนี้ แม่แบบนี้เป็นลำดับชั้นของวัตถุเสมือนจริงที่ครอบคลุมคุณสมบัติที่สามารถตั้งโปรแกรมได้ของ Excel การส่งชื่อผู้ใช้และรหัสผ่านไปยังเว็บไซต์ด้วย VBA จะบันทึกผู้ใช้จากความไม่สะดวกในการป้อนข้อมูลด้วยตนเอง

คำสั่ง

คุณสามารถทำสิ่งมหัศจรรย์ใน Excel (Photos.com/Photos.com/Getty Images)

1. เปิด Excel และแสดงหน้าต่างรหัส VBA โดยกด Alt + F11

2. คลิกสองครั้งที่รายการที่แสดง "สมุดงานนี้" ในบานหน้าต่างนำทางที่ด้านซ้ายของหน้าจอ จะเป็นการเปิดหน้าต่างสำหรับป้อนรหัสในสมุดงานปัจจุบัน

3. พิมพ์หรือวางโปรแกรมด้านล่างลงในหน้าต่างที่ปรากฏขึ้น โปรแกรมนี้เรียกคำสั่ง VBA "AppActivate" เพื่อนำรายการแอปพลิเคชันปัจจุบัน (Excel) ไปยังเบราว์เซอร์ของคุณ คำสั่ง "SendKeys" จะส่งสิ่งที่ป้อนข้อมูลบัญชีและรหัสผ่านไปยังเบราว์เซอร์ที่เปิดใช้งาน ข้อความ "{TAB}" และ "~" แทนปุ่ม "Tab" และ "Enter" คำสั่ง "แอปพลิเคชัน" บอกให้ Excel หยุดชั่วคราวอย่างรวดเร็วเพื่อให้ Windows และเวลาเบราว์เซอร์ประมวลผลสิ่งที่พิมพ์และส่ง

   Public Sub SendPassword () เปิดใช้งาน "NTNAME", TrueKeyKeys "YourUserName", แอปพลิเคชันจริงรอรับ 1,000 SendKeys "{TAB}", TrueKeykeys "SUA_SENHA", True Application Suba รับ 1,000 SendKeys "~", True End SubKeys

   
   

4. แทนที่ข้อความ "NAVIGATION_NAME" ด้วยชื่อเบราว์เซอร์ของคุณ (เช่น: "Firefox", "Internet Explorer" หรือ "Google Chrome") ที่คุณจะใช้ในการเข้าถึงบัญชีเว็บเพจ แทนที่ข้อความ "YOUR_USERNAME" และ "SUA_SENHA" ด้วยข้อมูลการเข้าถึงบัญชีที่หน้านั้นต้องการ

5. เปิดเว็บเพจที่คุณต้องการให้รหัสเข้าถึง

6. คลิกคำสั่งใดคำสั่งหนึ่งในรูทีนย่อย "SendPassword" แล้วกด "F5" เพื่อหมุนรูทีนย่อย Windows จะเรียกคืนโฟกัสไปยังเบราว์เซอร์ที่โปรแกรมของคุณเปิดใช้งาน โปรแกรมของคุณจะป้อนและส่งข้อมูลการเข้าถึงไปยังบัญชีที่คุณป้อนในรหัส

7. วางการแก้ไขต่อไปนี้ในโปรแกรมแรกใต้โปรแกรมที่มีอยู่แล้วในหน้าต่างการพัฒนา VBA "sendPassword" รุ่นนี้จะไม่ป้อนข้อมูลบัญชีสำหรับรหัสของคุณ แต่ค่าในแผ่นงานของสมุดงานปัจจุบัน ข้อได้เปรียบหลักของสิ่งนี้คือความสะดวกในการเปลี่ยนข้อมูลการเข้าสู่ระบบ ข้อมูลที่เก็บในแผ่นงานจะสะดวกในการเปลี่ยนแปลงมากกว่ารหัสโปรแกรม

   Public Sub sendPasswordStoredInWorksheet () Dim เข้าสู่ระบบ, pword, แอพแอพ = ActiveSheet.Cells (1, 1). ค่าเข้าสู่ระบบ = ActiveSheet.Cells (2, 1). ค่า pword = ActiveSheet.Cells (3, 1) .Value AppActivate True เข้าสู่ระบบ SendKeys, แอปพลิเคชันจริงรับ 1,000 SendKeys "{TAB}", pword SendKeys จริง, ใบสมัครจริง True รอ. 1000 SendKeys "~", จริง

   
   

   ส่วนท้าย

8. ป้อนชื่อเบราว์เซอร์และข้อมูลการเข้าสู่ระบบที่อยู่ในรหัสของโปรแกรมรุ่นแรกในสามเซลล์อันดับแรกของแผ่นงานแรกของสมุดงาน Excel

9. ในเบราว์เซอร์ให้ออกจากระบบบัญชีเว็บไซต์ที่โปรแกรมแรกของคุณเข้าถึงและกลับไปที่หน้าลงชื่อเข้าใช้เว็บไซต์ เรียกใช้โปรแกรมเวอร์ชั่นใหม่โดยใช้คำแนะนำในขั้นตอนที่ 6 เซสชั่นของบัญชีนี้จะเริ่มเหมือนในขั้นตอนที่ 6