Dim myFileStream As FileStream = New FileStream(FileName, FileMode.Open)

        Dim myWorkbook As IWorkbook = New HSSFWorkbook(myFileStream)

        Dim Sheet As ISheet = myWorkbook.GetSheetAt(0) '取第一个表

        Dim headerRow As IRow = Sheet.GetRow(0)         '第一行为标题行

        Dim cellCount As Integer = headerRow.LastCellNum         'LastCellNum = PhysicalNumberOfCells
        Dim rowCount As Integer = Sheet.LastRowNum          '//LastRowNum = PhysicalNumberOfRows - 1

        Dim iImportcount As Long = 0

        Dim iRow As Integer = 0
        Dim iColumnCount As Integer = Me.MainGridView.Columns.Count

        On Error Resume Next

        For i = Sheet.FirstRowNum + 1 To rowCount
            iImportcount += 1

            Dim row As IRow = Sheet.GetRow(i)

            Me.MainGridView.AddNewRow()

            For J = 0 To iColumnCount - 1
                Dim mycolumn As GridColumn = Me.MainGridView.VisibleColumns(J)

                Select Case PropertyHelper.GetUnderlyingType(mycolumn.ColumnType).ToString
                    Case "System.String"
                        MainGridView.SetFocusedRowCellValue(mycolumn, row.Cells(J).StringCellValue)
                    Case "System.DateTime"
                        MainGridView.SetFocusedRowCellValue(mycolumn, row.Cells(J).DateCellValue)
                    Case "System.Decimal"
                        MainGridView.SetFocusedRowCellValue(mycolumn, row.Cells(J).NumericCellValue)

                End Select
            Next

            'iRow += 1

            If iImportcount > 25 Then
                iImportcount = 0
                Application.DoEvents()

                Threading.Thread.Sleep(10)
            End If
        Next