VB.NET から EXCELオブジェクトの操作

    Private Shared Sub MosaMosaAA(ByVal workBookPath As String)
        Dim xlApplication As Excel.Application

        Try
            xlApplication = New Excel.Application()
            xlApplication.Visible = True

            Dim xlWorkBooks As Excel.Workbooks

            Try
                xlWorkBooks = xlApplication.Workbooks
                Dim xlWorkBook As Excel.Workbook

                Try
                    xlWorkBook = xlWorkBooks.Add(workBookPath)
                    Dim xlWorkSheets As Excel.Sheets

                    Try
                        xlWorkSheets = xlWorkBook.Worksheets
                        Dim xlSheet1 As Excel.Worksheet

                        Try
                            xlSheet1 = DirectCast(xlWorkSheets("Sheet1"), Excel.Worksheet)
                            Dim xlShapes As Excel.Shapes

                            Try
                                xlShapes = xlSheet1.Shapes
                                Dim xlImageShape As Excel.Shape

                                Try
                                    xlImageShape = xlShapes.Item("Image1")
                                    xlImageShape.Select()
                                    Dim xlSelection As Object

                                    Try
                                        xlSelection = xlApplication.Selection

                                        If Not xlSelection Is Nothing Then
                                            xlSelection.Formula = "Sheet2!$H:$BX"
                                        End If
                                    Finally
                                        If Not xlSelection Is Nothing Then
                                            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSelection)
                                        End If
                                    End Try
                                Finally
                                    If Not xlImageShape Is Nothing Then
                                        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlImageShape)
                                    End If
                                End Try
                            Finally
                                If Not xlShapes Is Nothing Then
                                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlShapes)
                                End If
                            End Try
                        Finally
                            If Not xlSheet1 Is Nothing Then
                                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet1)
                            End If
                        End Try
                    Finally
                        If Not xlWorkSheets Is Nothing Then
                            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheets)
                        End If
                    End Try
                Finally
                    If Not xlWorkBook Is Nothing Then
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
                    End If
                End Try
            Finally
                If Not xlWorkBooks Is Nothing Then
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBooks)
                End If
            End Try
        Finally
            If Not xlApplication Is Nothing Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApplication)
            End If
        End Try
    End Sub