COM-взаимодействие и Office Automation

Imports Excel = Microsoft.Office.Interop.Excel
Class WorkbookFactory
    Public Function Create(app As Excel.Application) As Excel.Workbook
        Return app.Workbooks.Add()
    End Function
End Class

Option Strict On
Imports Excel = Microsoft.Office.Interop.Excel
Namespace ReviewCase23_1
    Class WorkbookFactory
        Public Function Create(reviewApp As Excel.Application) As Excel.Workbook
            Return reviewApp.Workbooks.Add()
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Imports Excel = Microsoft.Office.Interop.Excel
Namespace BoundaryCase23_1
    Class WorkbookFactory
        Public Function Create(edgeApp As Excel.Application) As Excel.Workbook
            Return edgeApp.Workbooks.Add()
        End Function
    End Class
End Namespace

Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Module Demo
    Sub CloseBook(book As Excel.Workbook)
        Try
            book.Close(SaveChanges:=False)
        Finally
            Marshal.FinalReleaseComObject(book)
        End Try
    End Sub
End Module

Option Strict On
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Namespace ReviewCase23_2
    Module Demo
        Sub CloseBook(reviewBook As Excel.Workbook)
            Try
                reviewBook.Close(SaveChanges:=False)
            Finally
                Marshal.FinalReleaseComObject(reviewBook)
            End Try
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Namespace BoundaryCase23_2
    Module Demo
        Sub CloseBook(edgeBook As Excel.Workbook)
            Try
                edgeBook.Close(SaveChanges:=False)
            Finally
                Marshal.FinalReleaseComObject(edgeBook)
            End Try
        End Sub
    End Module
End Namespace

Option Strict Off
Module Demo
    Sub SetCell(sheet As Object)
        sheet.Cells(1, 1).Value = "ready"
    End Sub
End Module

Option Strict Off
Namespace ReviewCase23_3
    Module Demo
        Sub SetCell(reviewSheet As Object)
            reviewSheet.Cells(1, 1).Value = "ready"
        End Sub
    End Module
End Namespace

Option Strict Off
Namespace BoundaryCase23_3
    Module Demo
        Sub SetCell(edgeSheet As Object)
            edgeSheet.Cells(1, 1).Value = "ready"
        End Sub
    End Module
End Namespace

Imports System.Runtime.InteropServices
Module Demo
    Sub Export(documentName As String)
        Try
            OfficeExporter.Run(documentName)
        Catch ex As COMException
            Throw New InvalidOperationException($"Office export failed for {documentName}; HRESULT={ex.HResult:X8}", ex)
        End Try
    End Sub
End Module

Option Strict On
Imports System.Runtime.InteropServices
Namespace ReviewCase23_4
    Module Demo
        Sub Export(reviewDocumentName As String)
            Try
                OfficeExporter.Run(reviewDocumentName)
            Catch reviewEx As COMException
                Throw New InvalidOperationException($"Office export failed for {reviewDocumentName}; HRESULT={reviewEx.HResult:X8}", reviewEx)
            End Try
        End Sub
    End Module
End Namespace

Option Explicit On
Option Infer On
Imports System.Runtime.InteropServices
Namespace BoundaryCase23_4
    Module Demo
        Sub Export(edgeDocumentName As String)
            Try
                OfficeExporter.Run(edgeDocumentName)
            Catch edgeEx As COMException
                Throw New InvalidOperationException($"Office export failed for {edgeDocumentName}; HRESULT={edgeEx.HResult:X8}", edgeEx)
            End Try
        End Sub
    End Module
End Namespace

Class OfficeSmokeTest
    Public Sub Run()
        If Not Environment.Is64BitProcess Then Throw New InvalidOperationException("x64 required")
        Using sample = SampleDocument.CreateCorruptedCopy()
            Assert.Throws(Of OfficeImportException)(Sub() Importer.Import(sample.Path))
        End Using
    End Sub
End Class

Option Strict On
Namespace ReviewCase23_5
    Class OfficeSmokeTest
        Public Sub Run()
            If Not Environment.Is64BitProcess Then Throw New InvalidOperationException("x64 required")
            Using sample = SampleDocument.CreateCorruptedCopy()
                Assert.Throws(Of OfficeImportException)(Sub() Importer.Import(sample.Path))
            End Using
        End Sub
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase23_5
    Class OfficeSmokeTest
        Public Sub Run()
            If Not Environment.Is64BitProcess Then Throw New InvalidOperationException("x64 required")
            Using sample = SampleDocument.CreateCorruptedCopy()
                Assert.Throws(Of OfficeImportException)(Sub() Importer.Import(sample.Path))
            End Using
        End Sub
    End Class
End Namespace

Class OfficeJob
    Public Function Run(source As String, target As String) As Boolean
        Dim temp = target & ".partial"
        Try
            Exporter.Export(source, temp)
            File.Move(temp, target, True)
            Return True
        Catch
            If File.Exists(temp) Then File.Delete(temp)
            Throw
        End Try
    End Function
End Class

Option Strict On
Namespace ReviewCase23_6
    Class OfficeJob
        Public Function Run(reviewSource As String, reviewTarget As String) As Boolean
            Dim reviewTemp = reviewTarget & ".partial"
            Try
                Exporter.Export(reviewSource, reviewTemp)
                File.Move(reviewTemp, reviewTarget, True)
                Return True
            Catch
                If File.Exists(reviewTemp) Then File.Delete(reviewTemp)
                Throw
            End Try
        End Function
    End Class
End Namespace

Option Explicit On
Option Infer On
Namespace BoundaryCase23_6
    Class OfficeJob
        Public Function Run(edgeSource As String, edgeTarget As String) As Boolean
            Dim edgeTemp = edgeTarget & ".partial"
            Try
                Exporter.Export(edgeSource, edgeTemp)
                File.Move(edgeTemp, edgeTarget, True)
                Return True
            Catch
                If File.Exists(edgeTemp) Then File.Delete(edgeTemp)
                Throw
            End Try
        End Function
    End Class
End Namespace