improved MsExcelApplicationWrapper

* improved close methods availability in depending projects
* improved disposing with explicit closing
* disabled code which is user specific: Me.ComObjectStronglyTyped.Calculation = MsExcel.XlCalculation.xlCalculationAutomatic 'reset value from manual to automatic (=expected default setting of user in 99% of all situations)

Author: jochenwezel

ExcelOps-MicrosoftExcel/ComWrappers/MsExcelApplicationWrapper.vb

@@ -12,6 +12,7 @@ Namespace Global.CompuMaster.Excel.MsExcelCom
     ''' </remarks>
     Public Class MsExcelApplicationWrapper
         Inherits CompuMaster.ComInterop.ComApplication(Of MsExcel.Application)
+        Implements IDisposable
 
         Const ExpectedProcessName As String = "EXCEL"
 
@@ -45,10 +46,10 @@ Namespace Global.CompuMaster.Excel.MsExcelCom
         ''' </summary>
         Protected Overrides Sub OnClosing()
             If Not Me.IsDisposedComObject Then
-                Try
-                    Me.ComObjectStronglyTyped.Calculation = MsExcel.XlCalculation.xlCalculationAutomatic 'reset value from manual to automatic (=expected default setting of user in 99% of all situations)
-                Catch
-                End Try
+                'Try
+                '    Me.ComObjectStronglyTyped.Calculation = MsExcel.XlCalculation.xlCalculationAutomatic 'reset value from manual to automatic (=expected default setting of user in 99% of all situations)
+                'Catch
+                'End Try
                 Me.ComObjectStronglyTyped.Quit()
             End If
             MyBase.OnClosing()
@@ -86,6 +87,39 @@ Namespace Global.CompuMaster.Excel.MsExcelCom
             Me.ComObjectStronglyTyped.ThousandsSeparator = culture.NumberFormat.NumberGroupSeparator
         End Sub
 
+        'Re-implements method to allow depending assemblies to not reference CompuMaster.ComInterop.ComApplication
+        ''' <summary>
+        ''' Is MS Excel application closed
+        ''' </summary>
+        Public ReadOnly Property IsClosedExcelApplication() As Boolean
+            Get
+                Return MyBase.IsClosed
+            End Get
+        End Property
+
+        'Re-implements method to allow depending assemblies to not reference CompuMaster.ComInterop.ComApplication
+        ''' <summary>
+        ''' Close MS Excel application
+        ''' </summary>
+        Public Sub CloseExcelApplication()
+            MyBase.Close()
+        End Sub
+
+#Region "IDisposable Support"
+        Private disposedValue As Boolean ' Dient zur Erkennung redundanter Aufrufe.
+
+        ' IDisposable
+        Protected Overrides Sub Dispose(disposing As Boolean)
+            If Not disposedValue Then
+                If disposing Then
+                    Me.CloseExcelApplication()
+                End If
+            End If
+            disposedValue = True
+            MyBase.Dispose(disposing)
+        End Sub
+#End Region
+
     End Class
 
 End Namespace

ExcelOps-MicrosoftExcel/ExcelOpsLowLevel/MsExcelDataOperations.vb

@@ -135,8 +135,7 @@ Namespace Global.CompuMaster.Excel.ExcelOps
         ''' Try
         '''    '...
         ''' Finally
-        '''     MsExcelDataOperations.PrepareCloseExcelAppInstance(MSExcelApp)
-        '''     MsExcelDataOperations.SafelyCloseExcelAppInstance(MSExcelApp)
+        '''     MsExcelOps.CloseExcelAppInstance()
         ''' End Try
         ''' </code>
         ''' </remarks>
@@ -156,8 +155,7 @@ Namespace Global.CompuMaster.Excel.ExcelOps
         ''' Try
         '''    '...
         ''' Finally
-        '''     MsExcelDataOperations.PrepareCloseExcelAppInstance(MSExcelApp)
-        '''     MsExcelDataOperations.SafelyCloseExcelAppInstance(MSExcelApp)
+        '''     MsExcelOps.CloseExcelAppInstance()
         ''' End Try
         ''' </code>
         ''' </remarks>
@@ -177,8 +175,7 @@ Namespace Global.CompuMaster.Excel.ExcelOps
         ''' Try
         '''    '...
         ''' Finally
-        '''     MsExcelDataOperations.PrepareCloseExcelAppInstance(MSExcelApp)
-        '''     MsExcelDataOperations.SafelyCloseExcelAppInstance(MSExcelApp)
+        '''     MsExcelOps.CloseExcelAppInstance()
         ''' End Try
         ''' </code>
         ''' </remarks>
@@ -250,8 +247,7 @@ Namespace Global.CompuMaster.Excel.ExcelOps
         ''' Try
         '''    '...
         ''' Finally
-        '''     MsExcelDataOperations.PrepareCloseExcelAppInstance(MSExcelApp)
-        '''     MsExcelDataOperations.SafelyCloseExcelAppInstance(MSExcelApp)
+        '''     MSExcelApp.CloseExcelAppInstance()
         ''' End Try
         ''' </code>
         ''' </remarks>
@@ -272,23 +268,20 @@ Namespace Global.CompuMaster.Excel.ExcelOps
             MyBase.ValidateLoadOptions(options)
         End Sub
 
-        '''' <summary>
-        '''' MS Excel Interop provider (ATTENTION: watch for advised Try-Finally pattern for successful application process stop!)
-        '''' </summary>
-        '''' <remarks>Use with pattern
-        '''' <code>
-        '''' Dim MsExcelApp As New MsExcelDataOperations.MsAppInstance
-        '''' Try
-        ''''    '...
-        '''' Finally
-        ''''     MsExcelDataOperations.PrepareCloseExcelAppInstance(MSExcelApp)
-        ''''     MsExcelDataOperations.SafelyCloseExcelAppInstance(MSExcelApp)
-        '''' End Try
-        '''' </code>
-        '''' </remarks>
-        'Protected Property MSExcelApp As ComMsExcelApplication
-
         Private _MsExcelAppInstance As MsExcelApplicationWrapper
+        ''' <summary>
+        ''' MS Excel Interop provider (ATTENTION: watch for advised Try-Finally pattern for successful application process stop!)
+        ''' </summary>
+        ''' <remarks>Use with pattern
+        ''' <code>
+        ''' Dim MsExcelApp As New MsExcelDataOperations.MsAppInstance
+        ''' Try
+        '''    '...
+        ''' Finally
+        '''     MSExcelApp.CloseExcelAppInstance()
+        ''' End Try
+        ''' </code>
+        ''' </remarks>
         Public ReadOnly Property MsExcelAppInstance As MsExcelApplicationWrapper
             Get
                 If _MsExcelAppInstance Is Nothing Then

ExcelOpsTest/ExcelOpsTests.Engines/MsExcelOpsTest.vb

@@ -59,6 +59,8 @@ Namespace ExcelOpsTests.Engines
             If WbCount = 1 Then
                 MsExcelInstance.Workbooks.Workbook(1).CloseAndDispose()
             End If
+            MsExcelInstance.Workbooks.CloseAllWorkbooks()
+            MsExcelInstance.CloseExcelApplication()
         End Sub
 
         <OneTimeTearDown>