平凡之凡人 平凡之凡人
一个平凡的凡人!
关注数: 55 粉丝数: 151 发帖数: 2,909 关注贴吧数: 34
哪位大佬给看看,怎么关不掉“显示窗口”?我是新手,别见笑! .版本 2 .支持库 eExcel2000 .支持库 spec .支持库 iext .程序集 窗口程序集_显示窗口 .子程序 _时钟1_周期事件 .局部变量 i, 整数型 .局部变量 工作簿对象, 对象 .局部变量 数据范围, 对象 .局部变量 行对象, 对象 .局部变量 行数, 整数型 .如果真 (按钮标题 = “春”) 动画图片框.图片 = #春动图 笔画图片框.图片 = #春笔画 .如果真结束 .如果真 (按钮标题 = “冬”) 动画图片框.图片 = #冬动图 笔画图片框.图片 = #冬笔画 .如果真结束 Excel程序1.创建 () Excel工作簿1.置程序 (Excel程序1) Excel工作簿1.激活工作簿 () Excel工作簿1.打开 (“C:\Users\Administrator\Desktop\小学一年级语文下册\语下.xls”) Excel工作簿1.表格序号 = 1 工作簿对象 = Excel工作簿1.取表格对象 () 数据范围 = 工作簿对象.读对象型属性 (“UsedRange”, ) 行对象 = 数据范围.读对象型属性 (“Rows”, ) 行数 = 行对象.读数值属性 (“Count”, ) 调试输出 (行数) .计次循环首 (行数, i) Excel工作簿1.首单元格 = “A” + 到文本 (i) Excel工作簿1.尾单元格 = “A” + 到文本 (i) .如果真 (Excel工作簿1.内容 = 按钮标题) Excel工作簿1.首单元格 = “B” + 到文本 (i) Excel工作簿1.尾单元格 = “B” + 到文本 (i) 拼音标签.标题 = Excel工作簿1.内容 Excel工作簿1.首单元格 = “C” + 到文本 (i) Excel工作簿1.尾单元格 = “C” + 到文本 (i) 部首标签.标题 = Excel工作簿1.内容 Excel工作簿1.首单元格 = “D” + 到文本 (i) Excel工作簿1.尾单元格 = “D” + 到文本 (i) 释义标签.标题 = Excel工作簿1.内容 Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.释放 () Excel程序1.退出 () 跳出循环 () ' 延时 (11000) .如果真结束 .计次循环尾 ()
1 下一页