Public Shared Sub GetExcelValue(ByVal strFilePath As String, _
                                    ByRef val(,) As Object, _
                                    Optional ByVal maxRow As Integer = 65536)
        Dim xlApp As Excel.Application = Nothing

        Try

            xlApp = CreateObject("Excel.Application")

            If IsNothing(xlApp) Then Exit Sub

            xlApp.Workbooks.Open(Filename:=strFilePath)
            xlApp.WindowState = Excel.XlWindowState.xlMinimized
            xlApp.Visible = False
            xlApp.DisplayAlerts = False
            xlApp.ScreenUpdating = False

            Dim wWorksheet As Excel.Worksheet = _
                CType(xlApp.ActiveWorkbook.ActiveSheet, Excel.Worksheet)

            With wWorksheet
                .Unprotect()

                Application.DoEvents()

                'Value値取得（全セルを取得するとメモリのエラーになるので注意が必要！）
                val = .Range("A1:IV" & maxRow).Value

            End With

            GC.Collect()

        Catch ex As Exception

        Finally

            If (Not IsNothing(xlApp)) Then xlApp.Quit()
            xlApp = Nothing

            GC.Collect()

        End Try

    End Sub