如何利用access实现一组数据的随机抓取，直至该组数据全部抓取完毕。

假设一共有N个号码，定义一个数组来保存这N个号码，再定义一个逻辑型数组，用来标注其中否抽中，详情请见 http://zhidao.baidu.com/question/1881160073809195788.html?oldq=1 ，你可以在cZ(I) = True后要求输入中奖者信息，如果中奖者信息输入正确，保存至某一个地方后，表示抽中了索引为I的号码。Do Until J = 10要改成Do Until J = N，表示抽取所有人。

在Excel表格里，我们想要制作抽奖程序，做出随机抽奖的效果，下面是具体的 *** 作步骤。

打开Excel表格，首先我们输入一个函数:=INDEX()。

首先我们选中第1列的姓名，然后输入逗号，再输入函数，将公式补充完整为：=INDEX(A:A,RANDBETWEEN(4,15)

按下回车键之后，按住F9不松就可以开始随机抽奖，松开F9就可以得出抽奖结果.

通用抽奖软件V1.7.1 V1.7.2 数据导入详细图解~~每一步 太简单啦2010年05月19日 下午 06:35

最下面有下载地址！！！！

下面是具体介绍 以图为主

1. 先下载V1.7.1的安装程序 安装 推荐再下载V1.7.2的单独升级程序。

2.找到安装目录下的数据库文件bonus.mdb这是个access数据库文件 office的一种

3.双击数据库文件打开输入数据库密码“111”

4.安全警告点击“否”

5.还是安全警告点击“打开”

6.看这就用access 打开了 bonus.mdb抽奖数据库库。people表就是抽奖人员的表。

7.双击打开people表 能看到表的结构 照着这个结构输入数据就行啦 不过我们要做的是批量导入 接着看

8.这是准备的员工名单Excel格式方便导入 大部分情况下准备的表格列与people数据库的列不一致 这个没关系 只要你想要滚动显示的信息包含在其中一些列里就行

9.在access中开始导入数据 点击文件 获取外部数据 导入

10.文件类型选择 excel，定位到你的excel文件 点击“导入”就行啦

11.不用管它 下一步

12. 依旧不用管它下一步 excel里头含标题的话 最好勾选上“第一行包含列标题”

13. 最好选择 “新表中” 然后下一步

14. 基本上不用筛选 你要筛选也可以 直接点下一步吧

15.继续直接下一步

16. 默认值即可 直接点 “完成”

17.提示成功导入到一个新表中啦（数据库中的sheet1表）

18.新表 sheet1

19. 双击打开sheet1表 可以看出数据确实已经原封不动的导入到新表中啦 不过我们还要挑选有用的信息复制粘贴到people表中 这才是程序抽奖要用的数据表

20. 先清空原people表自带的示例人员数据 数据很多 可以一次全部删除 这样 *** 作 先点击第一行最左边的箭头处 选中首行记录

21.然后按住 shift键点选最末一条记录即可全部选中

22.右键删除即可！！简单吧

23.会提示你确认 ！点击 “是” 即可

24. 自行调整新表sheet1字段的顺序

25.如图 拖动即可 调整到 跟people表的顺序一致 就可以了 调整好以后 后面一次复制粘贴就可以搞定

26. 选中新表sheet1中的散列 复制

27.到people表中粘贴就是啦 ~~~~~

28.有提示一次 点击 “是” 你会很开心的~~~~~~~

29.看到了吧 数据全部都导进来了 基本上就完事啦 可以抽奖啦 ~~~~~~~

30. 为了清爽删除掉已经没有利用价值 起过渡作用 的新表sheet1啦 这样就完成一次彻彻底底的数据导入 以后有零星的数据要增删改的话 直接在表里 *** 作就是啦 同理此表基础上还可以批量追加记录。

很简单吧 没有几个字 ！！！这可是我为大家精心准备的数据导入图解。

下面是简单导入后抽奖效果：

当然这仅仅让你知道各列数据显示在哪里！！

抽奖结果显示如下，抽奖到任何阶段都可以在设置界面导出成excel等。

酷吧，炫吧！简单吧！下载一个玩玩吧！

v1.7.1下载地址 压缩包内含V1.7.2单独升级程序~~

也欢迎大家多用 通用抽奖软件 V1.7.2 完全免费 多提宝贵意见 ~~我会热情为大家服务的~~~

好了 ，累了 ，出去吃完粉 ~~~~继续加班到十点 呵呵 一边抠脚丫一边看zq 呵呵 神仙般的生活啊~~~~~~~~

---