- 博客(3)
- 收藏
- 关注
原创 GetDataFromDBF
<br />Sub GetDataFromDBF()<br />Dim cnn As ADODB.Connection<br />Dim cnnStr As String<br />Dim SQL As String<br />Dim rs As ADODB.Recordset<br />Dim ws As Worksheet<br />Set cnn = New ADODB.Connection<br />cnnStr = "Driver={Microsoft Visual Foxpro Driver};
2010-12-21 10:45:00 162
原创 进度条
<br />Sub Progress()<br /> Total = 100000<br /> With ProgressForm<br /> .LabPercent = 0<br /> .LabProgress.Width = 1<br /> .Show 0<br /> For i = 1 To Total<br /> .LabProgress.Width = .Width * 0.8 + Int(i / Total * .Width * 0.1)<br /> .LabPercent.Ca
2010-12-09 10:25:00 127
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人