推广 热搜: LabVIEW  控制  自动化  电子  自动  软件  sci  机器视觉  编程  视觉 

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

   日期:2018-04-16     浏览:92    评论:0    
核心提示:Private Sub GetExcelValue()Dim errMessage As String Dim iRows As IntegerDim iCols As IntegerDim jOut As IntegerDim kOut
 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,
 
打赏
 
更多>同类编程
0相关评论

推荐图文
推荐编程
点击排行

网站首页  |  关于我们  |  联系方式  |  使用协议  |  版权隐私  |  网站地图  |  排名推广  |  广告服务  |  积分换礼  |  网站留言  |  RSS订阅  |  违规举报