ระบบอัตโนมัติ Excel ครั้งที่สองที่เรียกใช้โค้ดที่ล้มเหลว

ขั้นตอนในการทบทวนเกิดลักษณะการทำงาน

1. เริ่มต้นโครงการ Standard EXE ใหม่ใน Visual Basic Form1 จะถูกสร้างขึ้น โดยค่าเริ่มต้น

2. บนเมนูโครงการคลิกอ้างอิงและจากนั้น ตรวจสอบไลบรารีวัตถุสำหรับรุ่นของ Excel ที่คุณต้องการที่จะทำให้เป็นอัตโนมัติ

3. ใส่ตัวควบคุมCommandButtonบน Form1

4. คัดลอกตัวอย่างรหัสต่อไปนี้ไปยังรหัสหน้าต่างของ Form1

         Option Explicit
   
         Private Sub Command1_Click()
            Dim xlApp As Excel.Application
            Dim xlBook As Excel.Workbook
            Dim xlSheet As Excel.Worksheet
            Set xlApp = CreateObject("Excel.Application")
            Set xlBook = xlApp.Workbooks.Add
            Set xlSheet = xlBook.Worksheets("Sheet1")
            xlSheet.Range(Cells(1, 1), Cells(10, 2)).Value = "Hello"
            xlBook.Saved = True
            Set xlSheet = Nothing
            Set xlBook = Nothing
            xlApp.Quit
            Set xlApp = Nothing
         End Sub
   

5. บนเมนูรันคลิกเริ่มหรือกด F5 เพื่อเริ่มการทำงานของโปรแกรม

6. คลิกที่ตัวควบคุมCommandButton ไม่มีข้อผิดพลาดเกิดขึ้น อย่างไรก็ตาม การอ้างอิงไปยัง Excel ถูกสร้างขึ้น และไม่ได้นำออกใช้

7. คลิกที่ตัวควบคุมCommandButtonอีกครั้ง โปรดสังเกตว่า คุณได้รับข้อความแสดงข้อผิดพลาดที่กล่าวถึงในส่วน "อาการ"
   
   หมายเหตุ ข้อความแสดงข้อผิดพลาดเกิดขึ้นเนื่องจากรหัสที่อ้างอิงถึงวิธีการของเซลล์โดยไม่ต้องอยู่ก่อนหน้าการโทรด้วยการ
   ตัวแปรวัตถุxlSheet

8. หยุดการโครงการ และเปลี่ยนบรรทัดของรหัสต่อไปนี้:

   xlSheet.Range(Cells(1,1),Cells(10,2)).Value = "Hello"
   

   เปลี่ยนบรรทัดของรหัสที่คล้ายกับบรรทัดของรหัสต่อไปนี้

   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(10,2)).Value = "Hello"
   

9. เรียกใช้โปรแกรมอีกครั้ง โปรดสังเกตว่า คุณสามารถเรียกใช้รหัสหลายครั้งโดยไม่ได้รับข้อผิดพลาด