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
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