读取Excel文件中的数据,并显示在MSFlexGrid表格中

Private   Sub   GetExcelValue()
Dim   errMessage   As   String
   

Dim   iRows   As   Integer
Dim   iCols   As   Integer
Dim   jOut   As   Integer
Dim   kOut   As   Integer
Dim   objExcel   As   Excel.Application
Dim   objWorkBook   As   Excel.Workbook
Dim   objSheet   As   Excel.Worksheet
Dim   objRange   As   Excel.Range

On   Error   GoTo   err
        Set   objExcel   =   New   Excel.Application
        Set   objWorkBook   =   objExcel.Workbooks.Open(Me.txtFileName.Text)
        Set   objSheet   =   objWorkBook.ActiveSheet
       
        Set   objRange   =   objSheet.UsedRange
       
       
        iRows   =   objRange.Rows.count
        iCols   =   objRange.Columns.count
       
        For   jOut   =   1   To   iRows
                  If   Trim$(objSheet.Cells(jOut,   2))   =   vbNullString   Then   Exit   For
        For   kOut   =   1   To   iCols
               
                With   dbgDispaly
                        .TextMatrix(jOut,   kOut   -   1)   =   Trim$(objSheet.Cells(jOut,   kOut))
                        '只需将此句代码改一下即可
                End   With
        Next
                    dbgDispaly.Rows   =   dbgDispaly.Rows   +   1
                    prbDaoLu.Value   =   jOut   /   iRows   *   100
        Next
        prbDaoLu.Value   =   0
        objWorkBook.Close
        Set   objSheet   =   Nothing
        Set   objWorkBook   =   Nothing
        Set   objExcel   =   Nothing
err:
                errMessage   =   "第"   &   "["   &   err.Number   &   "]"   &   "号错误"   &   "       "   &   err.Description
    If   err.Number   <>   0   Then

                MsgBox   errMessage,   vbCritical,   "错误"
               
    End   If
       
End   Sub