在下面这段代码中该如何加入进度条,我不要假的那种,我要能够真正的计算出导入所需时间的那种
Private Sub Command1_Click() '导入excel
Me.Labbegin.Caption = "数据正在加载中,请稍等"
Display '调用显示全局
With Md1 '清除网络还有记录以便下次导入
For i = 1 To Me.Md1.Rows - 1 '对I进行赋值
.TextMatrix(i, 1) = ""
.TextMatrix(i, 2) = ""
.TextMatrix(i, 3) = ""
.TextMatrix(i, 4) = ""
.TextMatrix(i, 5) = ""
.TextMatrix(i, 6) = ""
.TextMatrix(i, 7) = ""
.TextMatrix(i, 8) = ""
.TextMatrix(i, 9) = ""
.TextMatrix(i, 10) = ""
.TextMatrix(i, 11) = ""
.TextMatrix(i, 12) = ""
.TextMatrix(i, 13) = ""
.TextMatrix(i, 14) = ""
.TextMatrix(i, 15) = ""
.TextMatrix(i, 16) = ""
.TextMatrix(i, 17) = ""
.TextMatrix(i, 18) = ""
Next i
End With
'判断记录是否符合标准
If Me.Combo1.Text = "" Then
MsgBox "请选择您要导入的Excel工作表!", vbInformation, "系统提示"
Exit Sub
End If
'打开excel并导入
cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Me.Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
cnt.Open
rst.Open "select * from [" & Me.Combo1.Text & "$]", cnt, adOpenKeyset, adLockOptimistic
If Not rst.BOF Then rst.MoveFirst
GETDATA '调用全局 赋值
cnt.Close '关闭打开的excel
Me.Picdata.Visible = False
End Sub
