推广 热搜:
 |  行业设备  |  机械制造  |  机器视觉  |  机械自动化  |  仪器仪表  |  工业机器人  |  编程开发  |  嵌入式  |  电子技术  |  工控自动化  |  电工电气 频道

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

   日期:2018-04-16     浏览:115    评论: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订阅  |  违规举报