7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim xlExcel As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Dim bStop As Boolean
Private Sub Command1_Click()
Dim iRow As Long, jCol As Long
'List1.Clear
Text1.Text = ""
On Error Resume Next
xlExcel.Workbooks.Open "D:\你的表.xls"
Set xlBook = xlExcel.Workbooks(1)
xlBook.Sheets(1).Select
For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count
If bStop = False Then Exit For
'取第1列数据放到列表框控件List1中,要放到数组中也可以。
Text1.Text = xlBook.Worksheets(1).Cells(iRow, 1)
DoEvents
Next
bStop = True
xlBook.Close
xlExcel.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlExcel = Nothing
End Sub
Private Sub Command2_Click()
bStop = False
End Sub
Private Sub Form_Load()
bStop = True
Command1.Caption = "开始"
Command2.Caption = "停止"
End Sub
Option Explicit
Dim xlExcel As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
'Dim AppExcel As Object
Private Sub Command1_Click()
Dim iRow As Long, jCol As Long
List1.Clear
On Error Resume Next
xlExcel.Workbooks.Open "D:\GSSOFT\GWYGL\Export\在职公务员\金牛区七类机关在职公务员比较表.xls"
Set xlBook = xlExcel.Workbooks(1)
xlBook.Sheets(1).Select
For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count
'取第1列数据放到列表框控件List1中,要放到数组中也可以。
List1.AddItem xlBook.Worksheets(1).Cells(iRow, 1)
DoEvents
Next
xlBook.Close
xlExcel.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlExcel = Nothing
Text1.Text = List1.List(Rnd * (List1.ListCount - 1))
End Sub