Excel afsluiten

[Schippertje]

Ik gebruik de onderstaande code om iets uit te kunnen printen via excel.
Nou zit ik met het volgende probleem.
Zodra het blad is uit geprint dan sluit excel vanzelf, alleen alle andere open excel files die worden ook mee afgesloten. En dat is niet helemaal de bedoeling.
Kan iemand mij hiermee helpen.???

Dim AppExcel As Object
        Dim workBook As Object
        AppExcel = CreateObject("Excel.Application")
        If System.IO.File.Exists("D:\test.xlsx") Then
            workBook = AppExcel.Workbooks.suerceOpen("D:\test.xlsx")
        Else
            workBook = AppExcel.Workbooks.Open("C:\test.xlsx")
        End If

        AppExcel.Visible = False
        Worksheets = workBook.worksheets
        Worksheets("Blad1").Cells(1, 1).value = TextBox1.Text
        Worksheets("Blad1").PrintOut()
        workBook.Saved = True
        AppExcel.Quit()
        GC.Collect()

 

[JoZ1]

Andere geopende excel-files? Dus je hebt excel > 1 keer open?

Ik heb, met vergelijkbare code, hier geen problemen mee.

 

[Schippertje]

Ik heb er om me eigen computer ook geen probleem mee.
Alleen bij andere op de computer wel.
Dus dacht misschien dat er ook een code is voor alleen het sluiten van het te gebruiken file.

 

[JoZ1]

Staan daarop verschillende versies van excel?
Anders zou ik 't ook niet weten .

 

[Schippertje]

uhm....
Ja volgens mij microsoft office 2007, geen 2010 die ik zelf heb.
Veder zou ik ook niet weten waar het aan zou kunnen liggen.