Excel-automatisering mislykkes andre gang kodekjøringer

Trinn for å gjenskape virkemåten

1. Start et nytt Standard EXE-prosjekt i Visual Basic. Skjema1 er opprettet som standard.

2. Klikk Referanser på Prosjekt-menyen, og kontroller deretter objektbiblioteket for versjonen av Excel du har tenkt å automatisere.

3. Plasser en CommandButton-kontroll på Skjema1.

4. Kopier følgende kodeeksempel til kodevinduet i Skjema1.

         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. Klikk Start på Kjør-menyen, eller trykk på F5 for å starte programmet.

6. Klikk CommandButton-kontrollen . Det oppstår ingen feil. En referanse til Excel er imidlertid opprettet og er ikke utgitt.

7. Klikk CommandButton-kontrollen på nytt. Legg merke til at du får en av feilmeldingene som beskrives i delen Symptomer.
   
   Obs! Feilmeldingen oppstår fordi koden refererer til cellemetoden uten å kalle opp
   xlSheet-objektvariabel.

8. Stopp prosjektet, og endre følgende kodelinje:

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

   Endre kodelinjen slik at den ligner på følgende kodelinje.

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

9. Kjør programmet på nytt. Legg merke til at du kan kjøre koden flere ganger uten å motta en feilmelding.