好友
阅读权限10
听众
最后登录1970-1-1
|
在 窗口 双击 导入题库
然后 双击 打开Excel题库 按钮控件 进入后 修改
没看见你的题库格式没法指导你
.版本 2
.支持库 eExcel2000
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
.局部变量 局部_标志, 文本型
.局部变量 局部_索引, 整数型
可视 ＝ 真
' 状态条1.置文本 (0, “正在提取数据,请稍候...”)
通用对话框_公用.类型 ＝ 0
.如果真 (通用对话框_公用.打开 () ＝ 假)
返回 ()
.如果真结束
题库保存名 ＝ 取文本中间 (通用对话框_公用.文件名, 倒找文本 (通用对话框_公用.文件名, “\”, , 假) ＋ 1, 倒找文本 (通用对话框_公用.文件名, “.”, , 假) － 1 － 倒找文本 (通用对话框_公用.文件名, “\”, , 假))
' 题库保存名 ＝ 通用对话框_公用.文件名
标题 ＝ “数据导入（” ＋ 通用对话框_公用.文件名 ＋ “）”
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (通用对话框_公用.文件名)
Excel工作簿1.表格序号 ＝ 1
局部_导出头 ＝ { “题目”, “答案” }
超级列表框_导入预览.报表列 ＝ { }
.' 计次循环首 (取数组成员数 (局部_导出头), 局部_计次)
' 超级列表框_导入预览.插入列 (-1, 局部_导出头 [局部_计次], 80, , , )
.' 计次循环尾 ()
超级列表框_导入预览.插入列 (-1, 局部_导出头 [1], 780, , , )
超级列表框_导入预览.插入列 (-1, 局部_导出头 [2], 50, , , )
局部_标志 ＝ “1”
局部_计次 ＝ 1
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_标志 ＝ “”
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
局部_标志 ＝ 局部_标志 ＋ Excel工作簿1.内容
.如果真 (删全部空 (局部_标志) ≠ “”)
.如果真 (局部_计次1 ＝ 1)
局部_索引 ＝ 超级列表框_导入预览.插入表项 (, , , , , )
.如果真结束
超级列表框_导入预览.置标题 (局部_索引, 局部_计次1 － 1, Excel工作簿1.内容)
.如果真结束
.计次循环尾 ()
局部_计次 ＝ 局部_计次 ＋ 1
.判断循环尾 ()
信息框 (“Excel 打开成功！含” ＋ 到文本 (局部_计次 ÷ 2 － 1) ＋ “道题”, 0, )
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
' 状态条1.置文本 (0, “数据提取完成”) |
|
[复制链接]
|
发表于 2017-11-2 08:52
|楼主
发表于 2017-10-28 22:26
收藏
淘帖
有用
分享到朋友圈
