Excel tự động không thành công lần thứ hai chạy mã

Các bước để tái tạo hiện tượng

1. Bắt đầu một dự án tiêu chuẩn EXE Visual Basic. Biểu mẫu 1 được tạo ra theo mặc định.

2. Trên Project menu, bấm tham khảovà sau đó kiểm tra thư viện đối tượng cho phiên bản Excel mà bạn muốn tự động.

3. Đặt điều khiển CommandButton vào Form1.

4. Sao chép mẫu mã sau vào cửa sổ Form1, mã.

         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. Trên menu chạy , bấm bắt đầu, hoặc nhấn phím F5 để khởi động chương trình.

6. Bấm vào điều khiển CommandButton . Không có lỗi xảy ra. Tuy nhiên, một tham chiếu đến Excel đã được tạo ra và không được phát hành.

7. Bấm vào điều khiển CommandButton lại. Lưu ý rằng bạn nhận được một thông báo lỗi được thảo luận trong phần "Triệu chứng".
   
   Lưu ý Thông báo lỗi xảy ra vì mã đề cập đến phương pháp ô không trước cuộc gọi với các
   biến đối tượng xlSheet .

8. Dừng dự án và thay đổi dòng mã sau:

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

   Thay đổi dòng mã giống như dòng mã sau.

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

9. Chạy lại chương trình. Lưu ý rằng bạn có thể chạy mã nhiều lần mà không nhận được thông báo lỗi.