Excelin automaatio epäonnistuu toisen kerran, kun koodi suoritetaan

Toimintatavan toistamisen vaiheet

1. Aloita uusi Standard EXE -projekti Visual Basicissa. Lomake1 luodaan oletusarvoisesti.

2. Valitse Projekti-valikossaViittaukset ja tarkista sitten objektikirjastosta excel-versio, jonka haluat automatisoida.

3. Aseta Komentopainike-ohjausobjekti Form1:een.

4. Kopioi seuraava koodiesimerkki Lomakkeen1 koodi-ikkunaan.

         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. Käynnistä ohjelma valitsemalla Suorita-valikossaKäynnistä tai painamalla F5-näppäintä.

6. Napsauta Komentopainike-ohjausobjektia . Virhettä ei tapahdu. Viittaus Exceliin on kuitenkin luotu, eikä sitä ole julkaistu.

7. Napsauta Komentopainike-ohjausobjektia uudelleen. Huomaa, että saat virhesanoman, jota käsitellään Oireet-osassa.
   
   Huomautus Virhesanoma ilmenee, koska koodi viittaa solun menetelmään ilman, että soittoa
   edeltää xlSheet-objektimuuttuja.

8. Pysäytä projekti ja muuta seuraavaa koodiriviä:

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

   Muuta koodirivi muistuttamaan seuraavaa koodiriviä.

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

9. Suorita ohjelma uudelleen. Huomaa, että voit suorittaa koodin useita kertoja saamatta virhesanomaa.