老师上课Vb随机点名程序，用excel读入学生名单

这个程序的重点就是读Excel表格，如果能读出来人员名单，下面就用随机数就很好写了

我测试代码

Dim ExcelApp As Object

Dim ExcelBook As Object

Dim ExcelSheet As Object

Dim n As Long

Set ExcelApp = CreateObject("Excel.Application")

Set ExcelBook = ExcelApp.Workbooks.Open("c:\0.xls")

Set ExcelSheet = ExcelBook.Worksheets(1)

n = 1

Do

List1.AddItem ExcelSheet.Range("D" &n).Value

n = n + 1

Loop Until ExcelSheet.Range("D" &n).Value = ""

Set ExcelSheet = Nothing

Set ExcelBook = Nothing

Set ExcelApp = Nothing

我的人员名称是在D列，同理，如果还想要其它列（学号），在后后加上就行了

为了 *** 作excel，还引用了"Microsoft Excel 11.0 Object Library"对像

你需要使用数据控件（ADO）读入Excel数据表中的内容并填入到列表中，然后产生一个随机数（范围为列表数），接着将对应的名字及学号显示进行点名。成功的可以加入标记后再写进文件。

希望对你有用。

1、用户只需双击RollCall.exe即可打开点名软件。

2、然后点击编辑名单输入点名 *** 作的姓名。

3、完成点击文件保存即可。梦畅语音点名软件是一款支持语音播报点名结果的随机点名软件。

---