网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
excel 自动识别空白处
运行环境:分辨率:1440x900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:8.00.6874
@cimlan 2011/5/13
ffice 插件 不支持 子程序 的 关闭 主程序 打开的 excel 子程序如果对 excel 操作的话 必须 再次 打开 在关闭 UserVar lj = "c:\111.xls" "路径" //UserVar jl_s = 100000 "记录总条数" //hangs = Clng(jl_s) hangs = 65000 Call 读取excel的空位置 Sub 读取excel的空位置 Call Plugin.Office.OpenXls(lj) Do while true text = Plugin.Office.ReadXls(1, hangs, 3) //MessageBox text //MessageBox hangs If text = "" //代表 找到了一次 第二次找没出现 If dyc_y = true sc_hangs = hangs hangs = dw_hangs Call 取中间值 Else //上次扫描的 行数 sc_hangs = hangs hangs = hangs / 2 Call 提出整数部分 End If Else //找到了 值得情况 If sc_hangs - hangs <= 10 Then Plugin.Office.CloseXls Call 逐行查找 Exit Do End If Call 取中间值 dyc_y = true End If Loop End Sub MessageBox "最后的数是 :" & hangs Sub 取中间值 //找到有值得位置了 记录有值得位置 行数到 dw_hangs 定位行数 dw_hangs = hangs hangs = sc_hangs - dw_hangs hangs = hangs / 2 //转换成字符串 判断是否有小数点 有的话 就 保留 整数部分 Call 提出整数部分 hangs = hangs + dw_hangs End Sub Sub 逐行查找 MessageBox "行数是:" & hangs & "进入逐行查找" Call Plugin.Office.OpenXls(lj) Do while true text = Plugin.Office.ReadXls(1, hangs, 3) If text <> "" Then hangs = hangs + 1 Else Exit Do End If Loop Plugin.Office.CloseXls End Sub Sub 提出整数部分 hangs = cstr(hangs) //MessageBox "除以后的hangs值 :" & hangs zhao_d = InStrRev(hangs,".",-1,1) // MessageBox "小数点的位置是:" & zhao_d If zhao_d <> 0 Then hangs = Clng(left(hangs,zhao_d - 1)) //MessageBox "处理小数点后的hangs值:" & hangs Else hangs = Clng(hangs) End If End Sub
- 上一篇: 火山安卓开发平台免费版 版本:飞扬#10
- 下一篇: 皮皮虾APP登陆/评论易语言源码
猜你喜欢
- 2020-06-25 手机群控框架,可自由灵活编辑功能
- 2019-03-25 按键精灵脚本源码 五开辅助战斗
- 2019-03-25 按键精灵脚本源码 奶德自动N
- 2019-03-25 按键精灵脚本源码 梦幻西游自动打怪
- 2019-03-25 按键精灵脚本源码 梦幻西游五开挂机
- 2019-03-25 按键精灵脚本源码 梦幻西游挂机感恩版v1.1
- 2019-03-25 按键精灵脚本源码 急速封妖1.2.2
- 2019-03-25 按键精灵脚本源码 火源小怪
- 2019-03-25 按键精灵脚本源码 董卓脚本
- 2019-03-25 按键精灵脚本源码 钓鱼智能版
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有7位网友发表了看法:
查询快捷方式 评论于 [2019-01-31 11:04:37] 回复
按键精灵如果空白则
易语言的源码 评论于 [2019-04-08 16:27:37] 回复
按键精灵自动读收excel
易语言源码下载基地 评论于 [2019-05-03 19:45:21] 回复
按键精灵+打开excel+wps
易语言主题 评论于 [2019-06-11 08:42:41] 回复
按键精灵++自动识别点
易语言娱乐网 评论于 [2019-06-16 14:25:23] 回复
按键精灵+自动识别点
易语言源码站 评论于 [2019-07-24 13:21:05] 回复
如何让office识别空白
易语言 评论于 [2020-05-27 23:47:18] 回复
按键精灵逐行从电子表格中取值只至是空值