电子表格怎么用易语言写一个从excel中抽名字的程序

1.怎么用易语言写一个从excel中抽名字的程序

.版本 2

.支持库 eDB

.支持库 spec

.子程序 _按钮1_被单击

.局部变量 a， 整数型

置随机数种子 （）

a = 取随机数 （1， 记录集.记录数量）

调试输出 （a）

编辑框1.内容 = 名字文本 [a]

.子程序 __启动窗口_创建完毕

.局部变量 连接文本， 文本型

.局部变量 文件地址， 文本型

.局部变量 SQL语句， 文本型

.局部变量 循环次数， 整数型

文件地址 = 取运行目录 （） + “\名字.xls”

.如果 （数据库连接.连接 （“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” + 文件地址 + “；DefaultDir=” + 文件地址 + “；”） = 真）

输出调试文本 （“链接成功！”）

.如果真 （记录集.置连接 （数据库连接） = 假）

返回 （）

.如果真结束

SQL语句 = “select * from [Sheet1$]”

记录集.打开 （SQL语句， #SQL语句）

循环次数 = 记录集.记录数量

重定义数组 （文本变量， 假， 记录集.记录数量）

.计次循环首 （循环次数， ）

记录集.读文本 （0， 文本变量 [1]）

加入成员 （名字文本， 文本变量 [1]）

记录集.到下一条 （）

.计次循环尾 （）

输出调试文本 （“读入并显示成功！”）

.否则

输出调试文本 （数据库连接.最后错误）

.如果结束

2.Excel里面表格名字相同可以自动删除一个的 怎么弄

Excel 2007提供了名为“删除重复项”的功能，它可以快速删除工作表中的重复数据，具体操作方法是：选中可能存在重复数据或记录的区域，单击“数据”选项卡中 的“删除重复项”按钮，打开如图2所示对话框。如果需要保留若干完全相同记录中的一条，然后将剩余的相同记录全部删除，必须将如图2中的列标题全部选中， 点击“确定”后，会弹出对话框显示删除结果。

Excel 2003的解决方法：

用数据有效性就能防止同列输入重名，比如A2往下是数据录入区，在A2单元格设置 数据--有效性--设置--自定义

在公式栏输入=AND(COUNTIF($A$2:$A$10,A2)<2）然后确定，然后复制A2，选中A2:A10,

选择性粘贴--有效性验证--确定，然后在A2:A10中输入数据时就会自动进行验证，可以有效防止重复录入数据

ok!

至于删除重复值 直接排序就好了，不过记得先做个辅助列填充流水号，在重名列拍完序删除后后还可以恢复原来序列

注意先删掉重名后再进行有效性设置