Har följande kod, och den funkar bra... om man bortser från det faktum att Excel dyker om man stänger aktuellt dokument(rapport.xls) i Excel.
Detta sker oavsett om jag kör koden och stänger mitt program och sedan stänger rapport.xls, eller om jag stänger rapport.xls då mitt program fortfarande är igång. Det blir inga problem om jag stänger "hela" Excel.
Vad har jag gjort för fel?

Dim ExcelApp As Excel.Application
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Open App.Path & "\rapport\rapport.xls"
ExcelApp.Visible = True
ExcelApp.ActiveWorkbook.Worksheets.PrintPreview
Set ExcelApp = Nothing

//Martin Arvidson

Du har fortfarande kvar en refernes till dokumentet, även om du släppt
den till programmet. Därför fungerar det att stänga programmet men
inte dokumentet.

//Emma

Men hur kommer jag runt problemet? Kan ju inte vara meningen att det skall fungera på detta sättet... Eller?
//Martin

Istället för:
<code>

Dim ExcelApp As Excel.Application
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Open App.Path & "\rapport\rapport.xls"
ExcelApp.Visible = True
ExcelApp.ActiveWorkbook.Worksheets.PrintPreview
Set ExcelApp = Nothing


Skriv:


Dim ExcelApp As Excel.Application
dim xlBok as Excel.Workbook
Set ExcelApp = CreateObject("Excel.Application")
set xlBook = ExcelApp.Workbooks.Open App.Path & "\rapport\rapport.xls"
ExcelApp.Visible = True
ExcelApp.ActiveWorkbook.Worksheets.PrintPreview
Set xlBook = Nothing
Set ExcelApp = Nothing

</code>

Nu ska det fungera att stänga även dokumentet ifrån Excel

//Emma