Excel automatizavimo nepavyksta antrą kartą kodas veikia

Veikimo atkūrimo veiksmai

1. Pradėti naujas standartas EXE projektas Visual Basic. Pagal numatytuosius parametrus sukuriama Form1.

2. Meniu projektas spustelėkite nuorodasir tada patikrinkite, ar objektų bibliotekos versija "Excel", kurį norite automatizuoti.

3. Vieta CommandButton kontrolės Form1.

4. Nukopijuokite kodo pavyzdyje kodas Form1 langą.

         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. Vykdyti meniu, spustelėkite pradėti, arba paspauskite F5, kad paleistumėte programą.

6. Spustelėkite CommandButton . Nėra klaida. Tačiau, nuoroda į "Excel" buvo sukurta ir nebuvo išleistas.

7. Dar kartą spustelėkite CommandButton . Atkreipkite dėmesį, kad galite gauti vieną iš klaidų pranešimų, aprašytus skyriuje "Požymiai".
   
   Pastaba. Parodomas klaidos pranešimas, nes kodas nurodo langelį būdą be prieš skambutį į
   xlSheet objekto kintamąjį.

8. Projekto sustabdyti ir pakeisti šią kodo eilutę:

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

   Pakeisti į kodo eilutę, panašūs į šią kodo eilutę.

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

9. Paleiskite programą. Atkreipkite dėmesį, kad jūs galite paleisti kodą kelis kartus negaudami klaidos pranešimo.