Excel automatizācijas neizdodas otro reizi tiek palaists kods

Šādas darbības radīšana

1. Sākt jaunu projektu standarta EXE Visual Basic. Pēc noklusējuma tiek izveidota veidlapa Form1.

2. Projekta izvēlnē noklikšķiniet uz atsaucesun pēc tam pārbaudiet versijas, kuru vēlaties automatizēt Excel objektu bibliotēka.

3. Ievietojiet Form1 CommandButton vadīklas.

4. Kopēt kodu piemērā kods Form1 logu.

         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. Izvēlnē izpildīt noklikšķiniet uz Sāktvai nospiediet taustiņu F5, lai startētu programmu.

6. Noklikšķiniet uz CommandButton vadīklas. Kļūda nerodas. Tomēr atsauce uz Excel ir izveidota un nav izlaista.

7. Vēlreiz noklikšķiniet uz CommandButton vadīklas. Ņemiet vērā, ka tiek parādīts kāds no kļūdu ziņojumiem, kas aprakstītas sadaļā "Simptomi".
   
   Piezīme. Kļūdas ziņojums tiek parādīts, jo kods attiecas uz šūnas metodi, pirms sarunu ar
   objekta mainīgais xlSheet .

8. Pārtraukt projekta un mainīt kodu šādu rindiņu:

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

   Mainīt kodu, kas atgādina šādu rindiņu koda rindas.

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

9. Vēlreiz palaidiet programmu. Ievērojiet, ka varat palaist kodu vairākas reizes bez kļūdas ziņojuma parādīšanas.