logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

按键精灵读取excel的数据并写入网页的方法

 本明书馆 2018-09-10

按键精灵读取excel的数据并写入网页的方法

按键精灵 自动

目标

明确目标，在最短的时间内录入尽可能多的有效数据。人工容易出错，执行效率也不高，重复性的工作都交给机器进行处理,先写出手动步骤，再用脚本实现半自动化，最后实现全自动化。人工只进行数据有效性的检查。在实际运用过程中不可能只使用一个脚本实现全部功能，可以分拆成多个脚本灵活调整。

实现原理

用脚本语言对人工录入数据的步骤进行重现，并一直执行下去。

脚本编写流程

分析录入过程-分解为循环体-手动执行循环体-使用工具编写循环体脚本-调试脚本-适配和发布

分析

先检查是否可分解为循环体： 
有规律、可重复、可定位才能循环执行

分解

循环体执行流程，最小单元化每个步骤。 
按流程大致分为三个部分： 
1.格式化源数据：先进行excel表的预处理，减少每个表结构不同造成的兼容性问题 
2.获取源数据：定位到初始位置，按行或列进行读取，并存储到缓存中 
3.填充数据：切换到目标页面，定位到初始位置，进行填充

人工检查录入数据的有效性，决定是否重新执行脚本

手动执行循环体

按照步骤执行，找到最不容易出错的步骤，记录下关键点，执行完以后要求能定位到下一个源数据和下一个目标页面

使用工具编写自动化脚本

按照手动步骤进行重建，不要进行录制，那是无效的，每一步都写好注释 
原则 
1.尽量都用快捷键进行操作 
2.能找点别找图 
3.合理设置延迟时间 
4.尽量避免死循环

选择语言 我这里使用按键精灵进行脚本的编写，其它的语言大同小异。

调试脚本

反复修改参数，先实现功能，再谈优化效率和冗余检查，并进行迁移适配。 
重复的代码可以封装为子程序模块，再进行调用，若每次执行时只有少数代码不同，可加循环并判断。

示例

示例1

录入精煤库存

  1. //先打开xls和chrome,xls搜索累计，chrome搜索备注
  2. Dim a,a1,a2,a3,a4,a5,a6,aa
  3. //但只是复制为字符串，未赋值为变量的数值
  5. a=""
  6. a1 = 0
  7. a2 = 0
  8. a3 = 0
  9. a4 = 0
  10. a5 = 0
  11. a6 = 0
  12. aa = 0
  14. Call Plugin.Sys.SetCLB(a) //清空剪切板
  15. Delay 500
  16. MoveTo 939, 473
  17. LeftClick 1   //鼠标点击煤场库存
  18. Delay 200
  19. KeyDown 17, 1
  20. KeyPress 70, 1
  21. KeyUp 17, 1//ctrl+f
  22. Delay 200
  23. KeyDown 18, 1
  24. KeyPress 70, 1
  25. KeyUp 18, 1 //alt+f 定位到累计
  26. Delay 200
  27. MoveTo 78, 663//点击左下角的累计
  28. LeftClick 1
  29. Delay 200
  30. KeyPress "Right", 3 //找到混煤数据
  31. Delay 200
  32. KeyDown 17, 1
  33. KeyPress 67, 1
  34. KeyUp 17, 1//复制
  35. Delay 200
  36. a2 = Plugin.Sys.GetCLB()//获取剪切板的数据
  37. Delay 50
  39. Delay 100
  40. KeyDown 17, 1
  41. KeyPress 70, 1
  42. KeyUp 17, 1//ctrl+f
  43. Delay 100
  44. KeyDown 18, 1
  45. KeyPress 70, 1
  46. KeyUp 18, 1 //alt+f 定位到累计
  47. Delay 100
  48. MoveTo 78, 663//点击左下角的累计
  49. LeftClick 1
  50. Delay 100
  51. KeyPress "Right", 3 //找到精煤数据
  52. Delay 100
  53. KeyDown 17, 1
  54. KeyPress 67, 1
  55. KeyUp 17, 1//复制
  56. Delay 100
  57. a1 = Plugin.Sys.GetCLB()//获取剪切板的数据
  58. Delay 50
  60. Delay 100
  61. KeyDown 17, 1
  62. KeyPress 70, 1
  63. KeyUp 17, 1//ctrl+f
  64. Delay 100
  65. KeyDown 18, 1
  66. KeyPress 70, 1
  67. KeyUp 18, 1 //alt+f 定位到累计
  68. Delay 100
  69. MoveTo 78, 663//点击左下角的累计
  70. LeftClick 1
  71. Delay 100
  72. KeyPress "Right", 3 //找到洗混煤数据
  73. Delay 100
  74. KeyDown 17, 1
  75. KeyPress 67, 1
  76. KeyUp 17, 1//复制
  77. Delay 100
  78. a3 = Plugin.Sys.GetCLB()//获取剪切板的数据
  79. Delay 50
  81. Delay 100
  82. KeyDown 17, 1
  83. KeyPress 70, 1
  84. KeyUp 17, 1//ctrl+f
  85. Delay 100
  86. KeyDown 18, 1
  87. KeyPress 70, 1
  88. KeyUp 18, 1 //alt+f 定位到累计
  89. Delay 100
  90. MoveTo 78, 663//点击左下角的累计
  91. LeftClick 1
  92. Delay 100
  93. KeyPress "Right", 3 //找到煤泥数据
  94. Delay 100
  95. KeyDown 17, 1
  96. KeyPress 67, 1
  97. KeyUp 17, 1//复制
  98. Delay 100
  99. a4 = Plugin.Sys.GetCLB()//获取剪切板的数据
  100. Delay 50
  102. Delay 100
  103. KeyDown 17, 1
  104. KeyPress 70, 1
  105. KeyUp 17, 1//ctrl+f
  106. Delay 100
  107. KeyDown 18, 1
  108. KeyPress 70, 1
  109. KeyUp 18, 1 //alt+f 定位到累计
  110. Delay 100
  111. MoveTo 78, 663//点击左下角的累计
  112. LeftClick 1
  113. Delay 100
  114. KeyPress "Right", 3 //找到混块煤数据
  115. Delay 100
  116. KeyDown 17, 1
  117. KeyPress 67, 1
  118. KeyUp 17, 1//复制
  119. Delay 100
  120. a5 = Plugin.Sys.GetCLB()//获取剪切板的数据
  121. Delay 50
  123. Delay 100
  124. KeyDown 17, 1
  125. KeyPress 70, 1
  126. KeyUp 17, 1//ctrl+f
  127. Delay 100
  128. KeyDown 18, 1
  129. KeyPress 70, 1
  130. KeyUp 18, 1 //alt+f 定位到累计
  131. Delay 100
  132. MoveTo 78, 663//点击左下角的累计
  133. LeftClick 1
  134. Delay 100
  135. KeyPress "Right", 3 //找到矸石数据
  136. Delay 50
  137. KeyDown 17, 1
  138. KeyPress 67, 1
  139. KeyUp 17, 1//复制
  140. Delay 100
  141. a6 = Plugin.Sys.GetCLB()//获取剪切板的数据
  142. Delay 50
  144. Delay 100
  145. KeyDown 18, 1
  146. KeyPress 9, 1
  147. KeyUp 18, 1//alt+tab切换到chrome
  148. Delay 300
  149. MoveTo 526, 675
  150. Delay 100
  151. LeftClick 1//点击备注后面的方框
  152. Delay 100
  153. KeyPress "Tab", 1 //定位到精煤日销量
  155. Delay 300
  156. Call Plugin.Sys.SetCLB(a1) //将数据写入剪切板
  157. Delay 300
  158. KeyDown 17, 1
  159. KeyPress 86, 1
  160. KeyUp 17, 1//粘贴
  161. Delay 300
  162. KeyPress "Enter", 1 //下一个
  164. Delay 300
  165. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板
  166. Delay 300
  167. KeyDown 17, 1
  168. KeyPress 86, 1
  169. KeyUp 17, 1//粘贴
  170. Delay 300
  171. KeyPress "Enter", 1 //下一个
  173. Delay 300
  174. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板
  175. Delay 300
  176. KeyDown 17, 1
  177. KeyPress 86, 1
  178. KeyUp 17, 1//粘贴
  179. Delay 300
  180. KeyPress "Enter", 1 //下一个
  182. Delay 300
  183. Call Plugin.Sys.SetCLB(a4) //将数据写入剪切板
  184. Delay 300
  185. KeyDown 17, 1
  186. KeyPress 86, 1
  187. KeyUp 17, 1//粘贴
  188. Delay 300
  189. KeyPress "Enter", 1 //下一个
  191. Delay 300
  192. Call Plugin.Sys.SetCLB(a5) //将数据写入剪切板
  193. Delay 300
  194. KeyDown 17, 1
  195. KeyPress 86, 1
  196. KeyUp 17, 1//粘贴
  197. Delay 300
  198. KeyPress "Enter", 1 //下一个
  200. Delay 300
  201. Call Plugin.Sys.SetCLB(a6) //将数据写入剪切板
  202. Delay 300
  203. KeyDown 17, 1
  204. KeyPress 86, 1
  205. KeyUp 17, 1//粘贴
  207. Delay 1000
  208. MoveTo 18, 263
  209. Delay 500
  210. LeftClick 1//提交
  211. Delay 500
  213. MoveTo 511, 290
  214. LeftClick 1 //点击上一日
  215. Delay 500
  217. Delay 150
  218. KeyDown 18, 1
  219. KeyPress 9, 1
  220. KeyUp 18, 1//alt+tab切换到excel
  221. Delay 150
  223. MoveTo 29, 693  //点击左下角的向左箭头
  224. LeftClick 1
  225. Delay 300
  227. MoveTo 793, 693  //切换到上一日的excel表
  228. LeftClick 1
  229. Delay 150

示例2

煤质化验录入时间

  1. Dim a
  2. a = 0
  4. Delay 500
  5. KeyDown 17, 1
  6. KeyPress 67, 1
  7. KeyUp 17, 1  //复制日期
  8. Delay 100
  9. KeyPress "Down", 1
  11. KeyDown 18, 1
  12. KeyPress 9, 1
  13. KeyUp 18, 1//alt+tab切换到chrome
  14. Delay 250
  15. Do Until a > 5
  16. Delay 150
  17. KeyDown 17, 1
  18. KeyPress 86, 1
  19. KeyUp 17, 1  //粘贴
  20. Delay 50
  21. KeyPress "Down", 1
  22. a = a + 1
  23. Loop
  25. Delay 250
  26. MoveTo 14, 257
  27. Delay 100
  28. LeftClick 1   //点击提交
  30. Delay 250
  31. MoveTo 762, 293
  32. Delay 100
  33. LeftClick 1   //点击下一日
  35. Delay 250
  36. KeyDown 18, 1
  37. KeyPress 9, 1
  38. KeyUp 18, 1//alt+tab切换回excel

示例3

录入洗混煤

  1. //先打开xls和chrome
  2. Delay 500
  3. MoveTo 939, 473
  4. LeftClick 1   //鼠标点击煤场库存
  5. Delay 500
  6. KeyPress "Down", 3
  7. Delay 500
  8. KeyPress "Right", 1 //定位到洗混煤
  9. Delay 100
  10. KeyDown 17, 1
  11. KeyPress 67, 1
  12. KeyUp 17, 1//复制
  13. Delay 100
  14. KeyPress "Down", 1
  15. Delay 100
  16. KeyDown 18, 1
  17. KeyPress 9, 1
  18. KeyUp 18, 1//alt+tab切换到chrome
  19. Delay 300
  20. MoveTo 665, 82
  21. Delay 100
  22. LeftClick 1//进行查找洗混煤
  23. Delay 300
  24. FindColor 208, 311, 1179, 704, "3296FF", intX, intY
  25. Delay 300
  26. MoveTo intX, intY
  27. Delay 300
  28. MoveTo intX + 338, intY
  29. Delay 100
  30. LeftClick 1//定位到洗混煤库存
  31. Delay 100
  32. KeyDown 17, 1
  33. KeyPress 86, 1
  34. KeyUp 17, 1//粘贴
  35. Delay 100
  36. KeyPress "Enter", 1//定位到湿煤泥
  37. Delay 100
  38. KeyDown 18, 1
  39. KeyPress 9, 1
  40. KeyUp 18, 1//alt+tab切换到excel
  41. Delay 300
  42. KeyDown 17, 1
  43. KeyPress 67, 1
  44. KeyUp 17, 1//复制湿煤泥数据
  45. Delay 100
  47. Delay 100
  48. KeyDown 18, 1
  49. KeyPress 9, 1
  50. KeyUp 18, 1//alt+tab切换到chrome
  51. Delay 100
  53. Delay 100
  54. KeyDown 17, 1
  55. KeyPress 86, 1
  56. KeyUp 17, 1//粘贴湿煤泥库存
  57. Delay 100
  59. Delay 1000
  60. MoveTo 18, 263
  61. Delay 500
  62. LeftClick 1//提交
  63. Delay 500
  65. MoveTo 511, 290
  66. LeftClick 1 //点击上一日
  67. Delay 500
  69. Delay 300
  70. KeyDown 18, 1
  71. KeyPress 9, 1
  72. KeyUp 18, 1//alt+tab切换到excel
  73. Delay 300
  75. MoveTo 29, 693  //点击左下角的向左箭头
  76. LeftClick 1
  77. Delay 300
  79. MoveTo 793, 693  //切换到上一日的excel表
  80. LeftClick 1
  81. Delay 300

示例4

综合日报填报

  1. //先打开xls和chrome的gc煤矿综合调度填报，在选择好查找选项
  2. Delay 500
  3. MoveTo 86,656
  4. Delay 500
  5. LeftClick 1 //定位到这个日期的需要录入的巷道名称
  6. Delay 300
  7. KeyPress "Right", 2//定位到计划数据
  8. KeyDown 17, 1
  9. KeyPress 67, 1
  10. KeyUp 17, 1//复制
  11. Delay 500
  12. KeyDown 17, 1
  13. KeyPress 70, 1
  14. KeyUp 17, 1 //ctrl+f 定位到查找
  15. Delay 500
  16. KeyDown 18, 1
  17. KeyPress 70, 1
  18. KeyUp 18, 1 //alt+f 定位到下一个日期的巷道
  19. Delay 1000
  20. KeyDown 18, 1
  21. KeyPress 9, 1
  22. KeyUp 18, 1//alt+tab切换到chrome
  23. Delay 300
  24. MoveTo 665, 82
  25. Delay 100
  26. LeftClick 1//进行查找
  27. Delay 100
  29. Delay 300
  30. FindColor 208, 311, 1179, 704, "3296FF", intX, intY
  31. Delay 300
  32. MoveTo intX, intY
  33. Delay 300
  34. MoveTo intX + 340, intY + 8
  36. Delay 500
  37. LeftClick 1//定位到输入框
  38. Delay 100
  40. KeyDown 17, 1
  41. KeyPress 86, 1
  42. KeyUp 17, 1//粘贴
  44. Delay 300
  45. MoveTo 18, 263
  46. LeftClick 1//提交
  47. Delay 500
  49. MoveTo 764, 296
  50. LeftClick 1 //点击下一日
  51. Delay 500
  53. Delay 300
  54. KeyDown 18, 1
  55. KeyPress 9, 1
  56. KeyUp 18, 1//alt+tab切换到excel
  57. Delay 300

示例5

通用初始化瓦斯数据

  1. //煤矿初始化瓦斯夜班数据1
  2. //打开chrome浏览器，打开煤矿平台瓦斯夜班报表界面
  3. Dim c1,c,d1, d2,d3 ,d4, d5,d6,d7, d8,d9,d10,d11, d12,d13 ,d14, d15,d16,d17, d18,d19,d20,d21, d22,d23 ,d24, d25,d26,d27,d28,d29,d30
  5. d1 = "2018年04月01日"
  6. d2 = "2018年04月02日"
  7. d3 = "2018年04月03日"
  8. d4 = "2018年04月04日"
  9. d5 = "2018年04月05日"
  10. d6 = "2018年04月06日"
  11. d7 = "2018年04月07日"
  12. d8 = "2018年04月08日"
  13. d9 = "2018年04月09日"
  14. d10 = "2018年04月10日"
  15. d11 = "2018年04月11日"
  16. d12 = "2018年04月12日"
  17. d13 = "2018年04月13日"
  18. d14 = "2018年04月14日"
  19. d15 = "2018年04月15日"
  20. d16 = "2018年04月16日"
  21. d17 = "2018年04月17日"
  22. d18 = "2018年04月18日"
  23. d19 = "2018年04月19日"
  24. d20 = "2018年04月20日"
  25. d21 = "2018年04月21日"
  26. d22 = "2018年04月22日"
  27. d23 = "2018年04月23日"
  28. d24 = "2018年04月24日"
  29. d25 = "2018年04月25日"
  30. d26 = "2018年04月26日"
  31. d27 = "2018年04月27日"
  32. d28 = "2018年04月28日"
  33. d29 = "2018年04月29日"
  34. d30 = "2018年04月30日"
  36. c1 = 41 //需要录入的行数 50
  38. Sub 子程序1()
  39. Delay 800
  40. MoveTo 114, 273 //点击瓦斯中班
  41. Delay 200
  42. LeftClick 1
  43. Delay 4000  //打开页面时间长
  45. MoveTo 861, 308 //鼠标移动到日历图标
  46. Delay 300
  47. LeftClick 1//点击日历，打开日期选择界面
  48. Delay 300
  49. LeftClick 1//点击日历，打开日期选择界面
  50. Delay 300
  51. KeyDown 17, 1
  52. KeyPress 65, 1
  53. KeyUp 17, 1//全选
  54. Delay 300
  55. KeyPress "Delete", 1//清空
  56. End Sub
  58. Sub 子程序2()
  59. Delay 800
  60. KeyDown 17, 1
  61. KeyPress 86, 1
  62. KeyUp 17, 1//粘贴
  63. Delay 250
  64. MoveTo 912, 312 //定位到查询
  65. Delay 300
  66. LeftClick 1//点击查询
  67. Delay 2000
  68. c=1
  69. Delay 100 
  70. MoveTo 457, 258 //定位到增加记录
  71. Delay 100 
  73. Do Until c > c1+3
  74. Delay 100
  75. LeftClick 1           //点击添加行
  76. Delay 700
  77. c = c + 1
  78. Delay 100
  79. Loop
  81. Delay 2000
  82. MoveTo 234, 256
  83. Delay 200
  84. LeftClick 1   //点击提交
  85. Delay 1500
  87. Delay 1500
  88. MoveTo 386, 222
  89. Delay 200
  90. LeftClick 1   //点击 关闭
  91. Delay 1500
  93. End Sub
  96. Delay 500
  97. LockMouse //锁定鼠标位置
  99. //Call 子程序1()
  100. //Call Plugin.Sys.SetCLB(d1) //将数据写入剪切板
  101. //Call 子程序2()
  103. //Call 子程序1()
  104. //Call Plugin.Sys.SetCLB(d2) //将数据写入剪切板
  105. //Call 子程序2()
  107. Call 子程序1()
  108. Call Plugin.Sys.SetCLB(d3)//将数据写入剪切板
  109. Call 子程序2()
  111. Call 子程序1()
  112. Call Plugin.Sys.SetCLB(d4) //将数据写入剪切板
  113. Call 子程序2()
  115. Call 子程序1()
  116. Call Plugin.Sys.SetCLB(d5) //将数据写入剪切板
  117. Call 子程序2()
  119. Call 子程序1()
  120. Call Plugin.Sys.SetCLB(d6) //将数据写入剪切板
  121. Call 子程序2()
  123. Call 子程序1()
  124. Call Plugin.Sys.SetCLB(d7) //将数据写入剪切板
  125. Call 子程序2()
  127. Call 子程序1()
  128. Call Plugin.Sys.SetCLB(d8) //将数据写入剪切板
  129. Call 子程序2()
  131. Call 子程序1()
  132. Call Plugin.Sys.SetCLB(d9) //将数据写入剪切板
  133. Call 子程序2()
  135. Call 子程序1()
  136. Call Plugin.Sys.SetCLB(d10) //将数据写入剪切板
  137. Call 子程序2()
  139. Call 子程序1()
  140. Call Plugin.Sys.SetCLB(d11) //将数据写入剪切板
  141. Call 子程序2()
  143. Call 子程序1()
  144. Call Plugin.Sys.SetCLB(d12) //将数据写入剪切板
  145. Call 子程序2()
  147. Call 子程序1()
  148. Call Plugin.Sys.SetCLB(d13)//将数据写入剪切板
  149. Call 子程序2()
  151. Call 子程序1()
  152. Call Plugin.Sys.SetCLB(d14) //将数据写入剪切板
  153. Call 子程序2()
  155. Call 子程序1()
  156. Call Plugin.Sys.SetCLB(d15) //将数据写入剪切板
  157. Call 子程序2()
  159. Call 子程序1()
  160. Call Plugin.Sys.SetCLB(d16) //将数据写入剪切板
  161. Call 子程序2()
  163. Call 子程序1()
  164. Call Plugin.Sys.SetCLB(d17) //将数据写入剪切板
  165. Call 子程序2()
  167. Call 子程序1()
  168. Call Plugin.Sys.SetCLB(d18) //将数据写入剪切板
  169. Call 子程序2()
  171. Call 子程序1()
  172. Call Plugin.Sys.SetCLB(d19) //将数据写入剪切板
  173. Call 子程序2()
  175. Call 子程序1()
  176. Call Plugin.Sys.SetCLB(d20) //将数据写入剪切板
  177. Call 子程序2()
  179. Call 子程序1()
  180. Call Plugin.Sys.SetCLB(d21) //将数据写入剪切板
  181. Call 子程序2()
  183. Call 子程序1()
  184. Call Plugin.Sys.SetCLB(d22) //将数据写入剪切板
  185. Call 子程序2()
  187. Call 子程序1()
  188. Call Plugin.Sys.SetCLB(d23)//将数据写入剪切板
  189. Call 子程序2()
  191. Call 子程序1()
  192. Call Plugin.Sys.SetCLB(d24) //将数据写入剪切板
  193. Call 子程序2()
  195. Call 子程序1()
  196. Call Plugin.Sys.SetCLB(d25) //将数据写入剪切板
  197. Call 子程序2()
  199. Call 子程序1()
  200. Call Plugin.Sys.SetCLB(d26) //将数据写入剪切板
  201. Call 子程序2()
  203. Call 子程序1()
  204. Call Plugin.Sys.SetCLB(d27) //将数据写入剪切板
  205. Call 子程序2()
  207. Call 子程序1()
  208. Call Plugin.Sys.SetCLB(d28) //将数据写入剪切板
  209. Call 子程序2()
  211. Call 子程序1()
  212. Call Plugin.Sys.SetCLB(d29) //将数据写入剪切板
  213. Call 子程序2()
  215. Call 子程序1()
  216. Call Plugin.Sys.SetCLB(d30) //将数据写入剪切板
  217. Call 子程序2()

示例6

gc瓦斯自动录入4月份V1

  1. //先打开xls表和chrome浏览器,都最大化
  2. //chrome打开平台，登录，打开瓦斯日报表-选择一个班次，如夜班、早班、中班
  3. //修改值班日期为需要录入的xls表的日期，如你要录入2018年06月11日的gc煤矿瓦斯检查班报表（夜班）,就定位到当天，手动点击增加记录，创建大于40行的空行，进行提交保存。
  4. //chrome的鼠标初始位置在表格左上角，先录入一个数据，保证是直接可录入的状态，再只选中该单元格，不要成为编辑状态。
  5. //删除xls表最下面值班人的所有行，而且气体含量的CH4(%)第二列和CO2第二列检查时间的第二列需要录入的部分第一行不能为空，可手动输入任意字符进行填充，搬运完成以后再删除
  6. //xls定位到a6的位置,也就是检查地点下面的那个单元格
  7. //alt+tab切换一下，保证可以在xls表和chrome浏览器之间来回切换
  8. //初始在xls表，启动脚本的快捷键是ctrl+f10，有的计算机是ctrl+fn+f10,就可以进行批量复制了，复制完以后在chrome上进行提交保存，再删除最下面的空行。
  9. //若出错，狂按ctrl+f12或ctrl+fn+f12，若不行试试f12，fn+f12
  11. Dim a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,aa,bb,c1
  13. //但只是复制为字符串，未赋值为变量的数值
  14. //a1检测地点
  15. //a2 人数
  16. //a3 温度1
  17. //a4 温度2
  18. //a5 CH4-1
  19. //a6 CH4-2 
  20. //a7 CO2-1
  21. //a8 CO2-2
  22. //a9 检查时间1
  23. //a10 检查时间2 
  24. //a11 检查人
  25. //aa 读取的列数
  26. //bb 写的列数
  27. //c1 下拉多少行
  29. a=""
  30. c1 = 41
  31. c1 = c1 - 1
  33. Delay 800
  34. LockMouse //锁定鼠标位置
  37. Call Plugin.Sys.SetCLB(a) //清空剪切板
  38. Delay 800
  40. aa = 1//默认先读第一列
  42. Do Until aa>11
  43. Delay 250
  44. KeyDown 16, 1
  45. KeyPress "Down", c1
  46. KeyUp 16, 1  //全部选择该列
  47. Delay 250
  48. KeyDown 17, 1
  49. KeyPress 67, 1
  50. KeyUp 17, 1//复制
  51. Delay 123
  52. If aa=1 then 
  53. a1 = Plugin.Sys.GetCLB()//获取剪切板的数据
  54. Elseif aa=2 then
  55. a2 = Plugin.Sys.GetCLB()//获取剪切板的数据
  56. Elseif aa=3 then
  57. a3 = Plugin.Sys.GetCLB()//获取剪切板的数据
  58. Elseif aa=4 then
  59. a4 = Plugin.Sys.GetCLB()//获取剪切板的数据
  60. Elseif aa=5 then
  61. a5 = Plugin.Sys.GetCLB()//获取剪切板的数据
  62. Elseif aa=6 then
  63. a6 = Plugin.Sys.GetCLB()//获取剪切板的数据
  64. Elseif aa=7 then
  65. a7 = Plugin.Sys.GetCLB()//获取剪切板的数据
  66. Elseif aa=8 then
  67. a8 = Plugin.Sys.GetCLB()//获取剪切板的数据
  68. Elseif aa=9 then
  69. a9 = Plugin.Sys.GetCLB()//获取剪切板的数据
  70. Elseif aa= 10 then
  71. a10 = Plugin.Sys.GetCLB()//获取剪切板的数据
  72. Elseif aa= 11 then
  73. a11 = Plugin.Sys.GetCLB()//获取剪切板的数据
  74. Else
  75. End if
  76. Delay 123
  77. KeyPress "Right", 1 //移动到下一个
  78. Delay 123
  79. aa = aa + 1
  81. Loop
  83. Delay 250
  84. KeyDown 18, 1
  85. KeyPress 9, 1
  86. KeyUp 18, 1//alt+tab切换到chrome
  87. Delay 123
  89. bb = 1//默认先写第一列
  91. Do Until bb > 13
  92. Delay 250
  93. If bb=1 then 
  94. Call Plugin.Sys.SetCLB(a1) //将数据写入剪切板 检查地点
  95. Elseif bb=2 then
  96. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  97. Elseif bb=3 then
  98. Call Plugin.Sys.SetCLB(a9) //将数据写入剪切板 时间1
  99. Elseif bb=4 then
  100. Call Plugin.Sys.SetCLB(a5) //将数据写入剪切板 CH4-1
  101. Elseif bb=5 then
  102. Call Plugin.Sys.SetCLB(a7) //将数据写入剪切板 CO2-1
  103. Elseif bb=6 then
  104. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度-1
  105. Elseif bb=7 then
  106. Call Plugin.Sys.SetCLB(a11) //将数据写入剪切板 检查人
  107. Elseif bb=8 then
  108. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  109. Elseif bb=9 then
  110. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 时间2
  111. Elseif bb=10 then
  112. Call Plugin.Sys.SetCLB(a6)//将数据写入剪切板  CH4-2
  113. Elseif bb= 11 then 
  114. Call Plugin.Sys.SetCLB(a8) //将数据写入剪切板  CO2-2
  115. Elseif bb= 12 then
  116. Call Plugin.Sys.SetCLB(a4) //将数据写入剪切板 温度-2
  117. Elseif bb= 13 then
  118. Call Plugin.Sys.SetCLB(a11) //将数据写入剪切板 检查人
  119. Else
  120. End if
  121. Delay 250
  122. KeyDown 17, 1
  123. KeyPress 86, 1
  124. KeyUp 17, 1//粘贴整列
  125. Delay 250
  126. KeyPress "Up", c1//定位到下一列的第一行
  127. Delay 123
  128. KeyPress "Right", 1 //移动到下一个
  129. Delay 123
  130. bb = bb + 1
  131. TracePrint bb
  132. Loop

示例7

gc瓦斯自动录入4月神器版V2

  1. //初始化在chrome界面，左侧打开清单，瓦斯日报表，瓦斯日报表顶头
  2. //total commander资源管理器处于打开状态，并移动到需要录入的xls表
  4. Dim  a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,aa, bb, c1, c, d1, d2,d3 ,d4, d5,d6,d7, d8,d9,d10,d11, d12,d13 ,d14, d15,d16,d17, d18,d19,d20,d21, d22,d23 ,d24, d25,d26,d27,d28,d29,d30
  6. //但只是复制为字符串，未赋值为变量的数值
  7. //a1检测地点
  8. //a2 人数
  9. //a3 温度1
  10. //a4 温度2
  11. //a5 CH4-1
  12. //a6 CH4-2 
  13. //a7 CO2-1
  14. //a8 CO2-2
  15. //a9 检查时间1
  16. //a10 检查时间2 
  17. //a11 检查人
  18. //aa 读取的列数
  19. //bb 写的列数
  20. //c1 下拉多少行
  22. d1 = "2018年04月01日"
  23. d2 = "2018年04月02日"
  24. d3 = "2018年04月03日"
  25. d4 = "2018年04月04日"
  26. d5 = "2018年04月05日"
  27. d6 = "2018年04月06日"
  28. d7 = "2018年04月07日"
  29. d8 = "2018年04月08日"
  30. d9 = "2018年04月09日"
  31. d10 = "2018年04月10日"
  32. d11 = "2018年04月11日"
  33. d12 = "2018年04月12日"
  34. d13 = "2018年04月13日"
  35. d14 = "2018年04月14日"
  36. d15 = "2018年04月15日"
  37. d16 = "2018年04月16日"
  38. d17 = "2018年04月17日"
  39. d18 = "2018年04月18日"
  40. d19 = "2018年04月19日"
  41. d20 = "2018年04月20日"
  42. d21 = "2018年04月21日"
  43. d22 = "2018年04月22日"
  44. d23 = "2018年04月23日"
  45. d24 = "2018年04月24日"
  46. d25 = "2018年04月25日"
  47. d26 = "2018年04月26日"
  48. d27 = "2018年04月27日"
  49. d28 = "2018年04月28日"
  50. d29 = "2018年04月29日"
  51. d30 = "2018年04月30日"
  53. a=""
  54. c1 = 41
  55. c1 = c1 - 1
  57. Sub 子程序1()
  58. Delay 800
  59. MoveTo 119, 274  //点击瓦斯早班
  60. Delay 200
  61. LeftClick 1
  62. Delay 4000  //打开页面时间长
  64. MoveTo 861, 308 //鼠标移动到日历图标
  65. Delay 300
  66. LeftClick 1//点击日历，打开日期选择界面
  67. Delay 300
  68. LeftClick 1//点击日历，打开日期选择界面
  69. Delay 300
  70. KeyDown 17, 1
  71. KeyPress 65, 1
  72. KeyUp 17, 1//全选
  73. Delay 300
  74. KeyPress "Delete", 1//清空
  76. End Sub
  78. Sub 子程序2()
  79. Delay 800
  80. KeyDown 17, 1
  81. KeyPress 86, 1
  82. KeyUp 17, 1//粘贴
  83. Delay 250
  84. MoveTo 912, 312 //定位到查询
  85. Delay 300
  86. LeftClick 1//点击查询
  87. Delay 2000
  88. //KeyPress "Right", 1 //移动激活单元格到第二列
  89. //Delay 2000
  90. KeyDown 18, 1
  91. KeyPress 9, 1
  92. KeyUp 18, 1//alt+tab切换到tc
  93. Delay 2000
  94. KeyPress "Enter", 1//打开xls表
  95. Delay 2000
  97. Delay 250
  99. aa = 1//默认先读第一列
  101. Do Until aa>11
  102. Delay 250
  103. KeyDown 16, 1
  104. KeyPress "Down", c1
  105. KeyUp 16, 1  //全部选择该列
  106. Delay 250
  107. KeyDown 17, 1
  108. KeyPress 67, 1
  109. KeyUp 17, 1//复制
  110. Delay 123
  111. If aa=1 then 
  112. a1 = Plugin.Sys.GetCLB()//获取剪切板的数据
  113. Elseif aa=2 then
  114. a2 = Plugin.Sys.GetCLB()//获取剪切板的数据
  115. Elseif aa=3 then
  116. a3 = Plugin.Sys.GetCLB()//获取剪切板的数据
  117. Elseif aa=4 then
  118. a4 = Plugin.Sys.GetCLB()//获取剪切板的数据
  119. Elseif aa=5 then
  120. a5 = Plugin.Sys.GetCLB()//获取剪切板的数据
  121. Elseif aa=6 then
  122. a6 = Plugin.Sys.GetCLB()//获取剪切板的数据
  123. Elseif aa=7 then
  124. a7 = Plugin.Sys.GetCLB()//获取剪切板的数据
  125. Elseif aa=8 then
  126. a8 = Plugin.Sys.GetCLB()//获取剪切板的数据
  127. Elseif aa=9 then
  128. a9 = Plugin.Sys.GetCLB()//获取剪切板的数据
  129. Elseif aa= 10 then
  130. a10 = Plugin.Sys.GetCLB()//获取剪切板的数据
  131. Elseif aa= 11 then
  132. a11 = Plugin.Sys.GetCLB()//获取剪切板的数据
  133. Else
  134. End if
  135. Delay 123
  136. KeyPress "Right", 1 //移动到下一个
  137. Delay 123
  138. aa = aa + 1
  140. Loop
  142. Delay 2000
  143. KeyDown 18, 1
  144. KeyPress 115, 1
  145. KeyUp 18, 1//alt+f4关闭xls表
  146. Delay 2000
  148. KeyPress "Down", 1 //tc界面向下选择
  150. Delay 200
  151. KeyDown 18, 1
  152. KeyPress 9, 1
  153. KeyUp 18, 1//alt+tab切换到chrome
  154. Delay 500
  156. bb = 1//默认先写第一列
  158. Do Until bb > 13
  159. Delay 250
  160. If bb=1 then 
  161. Call Plugin.Sys.SetCLB(a1) //将数据写入剪切板 检查地点
  162. Elseif bb=2 then
  163. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  164. Elseif bb=3 then
  165. Call Plugin.Sys.SetCLB(a9) //将数据写入剪切板 时间1
  166. Elseif bb=4 then
  167. Call Plugin.Sys.SetCLB(a5) //将数据写入剪切板 CH4-1
  168. Elseif bb=5 then
  169. Call Plugin.Sys.SetCLB(a7) //将数据写入剪切板 CO2-1
  170. Elseif bb=6 then
  171. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度-1
  172. Elseif bb=7 then
  173. Call Plugin.Sys.SetCLB(a11) //将数据写入剪切板 检查人
  174. Elseif bb=8 then
  175. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  176. Elseif bb=9 then
  177. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 时间2
  178. Elseif bb=10 then
  179. Call Plugin.Sys.SetCLB(a6)//将数据写入剪切板  CH4-2
  180. Elseif bb= 11 then 
  181. Call Plugin.Sys.SetCLB(a8) //将数据写入剪切板  CO2-2
  182. Elseif bb= 12 then
  183. Call Plugin.Sys.SetCLB(a4) //将数据写入剪切板 温度-2
  184. Elseif bb= 13 then
  185. Call Plugin.Sys.SetCLB(a11) //将数据写入剪切板 检查人
  186. Else
  187. End if
  188. Delay 250
  189. KeyDown 17, 1
  190. KeyPress 86, 1
  191. KeyUp 17, 1//粘贴整列
  192. Delay 250
  193. KeyPress "Up", c1//定位到下一列的第一行
  194. Delay 123
  195. KeyPress "Right", 1 //移动到下一个
  196. Delay 123
  197. bb = bb + 1
  198. TracePrint bb
  199. Loop
  201. Delay 2000
  202. MoveTo 234, 256
  203. Delay 200
  204. LeftClick 1   //点击提交
  205. Delay 1500
  207. Delay 500
  208. MoveTo 386, 222
  209. Delay 200
  210. LeftClick 1   //点击 关闭
  211. Delay 1500
  213. End Sub
  215. Delay 800
  216. LockMouse //锁定鼠标位置
  218. Call Plugin.Sys.SetCLB(a) //清空剪切板
  219. Delay 800
  221. Call 子程序1()
  222. Call Plugin.Sys.SetCLB(d1) //将数据写入剪切板
  223. Call 子程序2()
  225. Call 子程序1()
  226. Call Plugin.Sys.SetCLB(d2) //将数据写入剪切板
  227. Call 子程序2()
  229. Call 子程序1()
  230. Call Plugin.Sys.SetCLB(d3)//将数据写入剪切板
  231. Call 子程序2()
  233. Call 子程序1()
  234. Call Plugin.Sys.SetCLB(d4) //将数据写入剪切板
  235. Call 子程序2()
  237. Call 子程序1()
  238. Call Plugin.Sys.SetCLB(d5) //将数据写入剪切板
  239. Call 子程序2()
  241. Call 子程序1()
  242. Call Plugin.Sys.SetCLB(d6) //将数据写入剪切板
  243. Call 子程序2()
  245. Call 子程序1()
  246. Call Plugin.Sys.SetCLB(d7) //将数据写入剪切板
  247. Call 子程序2()
  249. Call 子程序1()
  250. Call Plugin.Sys.SetCLB(d8) //将数据写入剪切板
  251. Call 子程序2()
  253. Call 子程序1()
  254. Call Plugin.Sys.SetCLB(d9) //将数据写入剪切板
  255. Call 子程序2()
  257. Call 子程序1()
  258. Call Plugin.Sys.SetCLB(d10) //将数据写入剪切板
  259. Call 子程序2()
  261. Call 子程序1()
  262. Call Plugin.Sys.SetCLB(d11) //将数据写入剪切板
  263. Call 子程序2()
  265. Call 子程序1()
  266. Call Plugin.Sys.SetCLB(d12) //将数据写入剪切板
  267. Call 子程序2()
  269. Call 子程序1()
  270. Call Plugin.Sys.SetCLB(d13)//将数据写入剪切板
  271. Call 子程序2()
  273. Call 子程序1()
  274. Call Plugin.Sys.SetCLB(d14) //将数据写入剪切板
  275. Call 子程序2()
  277. Call 子程序1()
  278. Call Plugin.Sys.SetCLB(d15) //将数据写入剪切板
  279. Call 子程序2()
  281. Call 子程序1()
  282. Call Plugin.Sys.SetCLB(d16) //将数据写入剪切板
  283. Call 子程序2()
  285. Call 子程序1()
  286. Call Plugin.Sys.SetCLB(d17) //将数据写入剪切板
  287. Call 子程序2()
  289. Call 子程序1()
  290. Call Plugin.Sys.SetCLB(d18) //将数据写入剪切板
  291. Call 子程序2()
  293. Call 子程序1()
  294. Call Plugin.Sys.SetCLB(d19) //将数据写入剪切板
  295. Call 子程序2()
  297. Call 子程序1()
  298. Call Plugin.Sys.SetCLB(d20) //将数据写入剪切板
  299. Call 子程序2()
  301. Call 子程序1()
  302. Call Plugin.Sys.SetCLB(d21) //将数据写入剪切板
  303. Call 子程序2()
  305. Call 子程序1()
  306. Call Plugin.Sys.SetCLB(d22) //将数据写入剪切板
  307. Call 子程序2()
  309. Call 子程序1()
  310. Call Plugin.Sys.SetCLB(d23)//将数据写入剪切板
  311. Call 子程序2()
  313. Call 子程序1()
  314. Call Plugin.Sys.SetCLB(d24) //将数据写入剪切板
  315. Call 子程序2()
  317. Call 子程序1()
  318. Call Plugin.Sys.SetCLB(d25) //将数据写入剪切板
  319. Call 子程序2()
  321. Call 子程序1()
  322. Call Plugin.Sys.SetCLB(d26) //将数据写入剪切板
  323. Call 子程序2()
  325. Call 子程序1()
  326. Call Plugin.Sys.SetCLB(d27) //将数据写入剪切板
  327. Call 子程序2()
  329. Call 子程序1()
  330. Call Plugin.Sys.SetCLB(d28) //将数据写入剪切板
  331. Call 子程序2()
  333. Call 子程序1()
  334. Call Plugin.Sys.SetCLB(d29) //将数据写入剪切板
  335. Call 子程序2()
  337. Call 子程序1()
  338. Call Plugin.Sys.SetCLB(d30) //将数据写入剪切板
  339. Call 子程序2()

示例8

wl瓦斯自动录入5月6月V2

  1. //先打开xls表和chrome浏览器,都最大化
  2. //chrome打开wl平台，登录，打开瓦斯日报表-选择一个班次，如夜班、早班、中班
  3. //修改值班日期为需要录入的xls表的日期，如你要录入2018年06月11日的wl煤矿瓦斯检查班报表（夜班）,就定位到当天，手动点击增加记录，创建大于该xle表待录入数据总行的空行，进行提交保存。
  4. //chrome的鼠标初始位置在表格左上角的人数下面的单元格，先录入一个数据，保证是直接可录入的状态，再只选中该单元格，不要成为编辑状态。
  5. //删除xls表最下面备注及以下的的所有行，而且气体含量的CH4(%)第二列和CO2第二列检查时间的第二列需要录入的部分第一行不能为空，可手动输入任意字符进行填充，搬运完成以后再删除
  6. //xls定位到第一个人数下面的单元格的位置,也就是检查地点下面的那个单元格 （若为早班或中班，则定位到该班的左上角人数下面的单元格）
  7. //alt+tab切换一下，保证可以在xls表和chrome浏览器之间来回切换
  8. //初始在xls表，启动脚本的快捷键是ctrl+f10，有的计算机是ctrl+fn+f10,就可以进行批量复制了，复制完以后在chrome上进行提交保存，再删除最下面的空行。
  9. //若出错，狂按ctrl+f12或ctrl+fn+f12，若不行试试f12，fn+f12
  11. Dim a,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,aa,bb,c1
  13. //但只是复制为字符串，未赋值为变量的数值
  14. //a1检测地点
  15. //a2 人数
  16. //a3 温度
  17. //a4 CH4-1
  18. //a5 CH4-2 
  19. //a6 CO2-1
  20. //a7 CO2-2
  21. //a8 检查时间1
  22. //a9 检查时间2 
  23. //a10 检查人
  24. //aa 读取的列数
  25. //bb 写的列数
  26. //c1 下拉多少行
  28. a=""
  29. c1 = 48
  30. c1 = c1 - 1
  32. Delay 800
  33. LockMouse //锁定鼠标位置
  35. Call Plugin.Sys.SetCLB(a) //清空剪切板
  36. Delay 800
  38. aa = 2//默认先读第二列 人数
  40. Do Until aa>10
  41. Delay 250
  42. KeyDown 16, 1
  43. KeyPress "Down", c1
  44. KeyUp 16, 1  //全部选择该列
  45. Delay 250
  46. KeyDown 17, 1
  47. KeyPress 67, 1
  48. KeyUp 17, 1//复制
  49. Delay 123
  50. If aa=1 then 
  51. a1 = Plugin.Sys.GetCLB()//获取剪切板的数据
  52. Elseif aa=2 then
  53. a2 = Plugin.Sys.GetCLB()//获取剪切板的数据
  54. Elseif aa=3 then
  55. a3 = Plugin.Sys.GetCLB()//获取剪切板的数据
  56. Elseif aa=4 then
  57. a4 = Plugin.Sys.GetCLB()//获取剪切板的数据
  58. Elseif aa=5 then
  59. a5 = Plugin.Sys.GetCLB()//获取剪切板的数据
  60. Elseif aa=6 then
  61. a6 = Plugin.Sys.GetCLB()//获取剪切板的数据
  62. Elseif aa=7 then
  63. a7 = Plugin.Sys.GetCLB()//获取剪切板的数据
  64. Elseif aa=8 then
  65. a8 = Plugin.Sys.GetCLB()//获取剪切板的数据
  66. Elseif aa=9 then
  67. a9 = Plugin.Sys.GetCLB()//获取剪切板的数据
  68. Elseif aa= 10 then
  69. a10 = Plugin.Sys.GetCLB()//获取剪切板的数据
  70. Else
  71. End if
  72. Delay 123
  73. KeyPress "Right", 1 //移动到下一个
  74. Delay 123
  75. aa = aa + 1
  77. Loop
  79. Delay 250
  80. KeyDown 18, 1
  81. KeyPress 9, 1
  82. KeyUp 18, 1//alt+tab切换到chrome
  83. Delay 123
  85. bb = 2//默认先写第二列 人数
  87. Do Until bb > 13
  88. Delay 250
  89. If bb=1 then 
  90. Call Plugin.Sys.SetCLB(a1) //将数据写入剪切板 检查地点
  91. Elseif bb=2 then
  92. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  93. Elseif bb=3 then
  94. Call Plugin.Sys.SetCLB(a8) //将数据写入剪切板 时间1
  95. Elseif bb=4 then
  96. Call Plugin.Sys.SetCLB(a4) //将数据写入剪切板 CH4-1
  97. Elseif bb=5 then
  98. Call Plugin.Sys.SetCLB(a6) //将数据写入剪切板 CO2-1
  99. Elseif bb=6 then
  100. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度
  101. Elseif bb=7 then
  102. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 检查人
  103. Elseif bb=8 then
  104. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  105. Elseif bb=9 then
  106. Call Plugin.Sys.SetCLB(a9) //将数据写入剪切板 时间2
  107. Elseif bb=10 then
  108. Call Plugin.Sys.SetCLB(a5)//将数据写入剪切板  CH4-2
  109. Elseif bb= 11 then 
  110. Call Plugin.Sys.SetCLB(a7) //将数据写入剪切板  CO2-2
  111. Elseif bb= 12 then
  112. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度
  113. Elseif bb= 13 then
  114. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 检查人
  115. Else
  116. End if
  117. Delay 250
  118. KeyDown 17, 1
  119. KeyPress 86, 1
  120. KeyUp 17, 1//粘贴整列
  121. Delay 250
  122. KeyPress "Up", c1//定位到下一列的第一行
  123. Delay 123
  124. KeyPress "Right", 1 //移动到下一个
  125. Delay 123
  126. bb = bb + 1
  127. TracePrint bb
  128. Loop

示例9 
wl瓦斯自动录入5月6月神器版V2

  1. //初始化在chrome界面，左侧打开清单，定位到瓦斯日报表，瓦斯日报表顶头
  2. //tc处于打开状态，并移动到需要录入的xls表
  4. Dim a, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, aa, bb, c1, c, d1, d2,d3 ,d4, d5,d6,d7, d8,d9,d10
  5. //但只是复制为字符串，未赋值为变量的数值
  6. //a1检测地点
  7. //a2 人数
  8. //a3 温度
  9. //a4 CH4-1
  10. //a5 CH4-2 
  11. //a6 CO2-1
  12. //a7 CO2-2
  13. //a8 检查时间1
  14. //a9 检查时间2 
  15. //a10 检查人
  16. //aa 读取的列数
  17. //bb 写的列数
  18. //c1 下拉多少行
  20. d1 = "2018年05月18日"
  21. d2 = "2018年05月19日"
  22. d3 = "2018年05月20日"
  23. d4 = "2018年05月24日"
  24. d5 = "2018年05月25日"
  25. d6 = "2018年05月26日"
  26. d7 = "2018年05月27日"
  27. d8 = "2018年05月28日"
  28. d9 = "2018年05月30日"
  29. d10 = "2018年05月31日"
  32. a=""
  33. c1 = 50
  34. c1 = c1 - 1
  36. Sub 子程序1()
  37. Delay 800
  38. MoveTo 119, 272 //点击瓦斯中班
  39. Delay 200
  40. LeftClick 1
  41. Delay 4000  //打开页面时间长
  43. MoveTo 861, 308 //鼠标移动到日历图标
  44. Delay 300
  45. LeftClick 1//点击日历，打开日期选择界面
  46. Delay 300
  47. LeftClick 1//点击日历，打开日期选择界面
  48. Delay 300
  49. KeyDown 17, 1
  50. KeyPress 65, 1
  51. KeyUp 17, 1//全选
  52. Delay 300
  53. KeyPress "Delete", 1//清空
  55. End Sub
  57. Sub 子程序2()
  58. Delay 800
  59. KeyDown 17, 1
  60. KeyPress 86, 1
  61. KeyUp 17, 1//粘贴
  62. Delay 250
  63. MoveTo 912, 312 //定位到查询
  64. Delay 300
  65. LeftClick 1//点击查询
  66. Delay 2000
  67. KeyPress "Right", 1 //移动激活单元格到第二列
  68. Delay 2000
  69. KeyDown 18, 1
  70. KeyPress 9, 1
  71. KeyUp 18, 1//alt+tab切换到tc
  72. Delay 2000
  73. KeyPress "Enter", 1//打开xls表
  74. Delay 2000
  76. Delay 250
  77. aa = 2//默认先读第二列 人数
  79. Do Until aa>10
  80. Delay 250
  81. KeyDown 16, 1
  82. KeyPress "Down", c1
  83. KeyUp 16, 1  //全部选择该列
  84. Delay 250
  85. KeyDown 17, 1
  86. KeyPress 67, 1
  87. KeyUp 17, 1//复制
  88. Delay 123
  89. If aa=1 then 
  90. a1 = Plugin.Sys.GetCLB()//获取剪切板的数据
  91. Elseif aa=2 then
  92. a2 = Plugin.Sys.GetCLB()//获取剪切板的数据
  93. Elseif aa=3 then
  94. a3 = Plugin.Sys.GetCLB()//获取剪切板的数据
  95. Elseif aa=4 then
  96. a4 = Plugin.Sys.GetCLB()//获取剪切板的数据
  97. Elseif aa=5 then
  98. a5 = Plugin.Sys.GetCLB()//获取剪切板的数据
  99. Elseif aa=6 then
  100. a6 = Plugin.Sys.GetCLB()//获取剪切板的数据
  101. Elseif aa=7 then
  102. a7 = Plugin.Sys.GetCLB()//获取剪切板的数据
  103. Elseif aa=8 then
  104. a8 = Plugin.Sys.GetCLB()//获取剪切板的数据
  105. Elseif aa=9 then
  106. a9 = Plugin.Sys.GetCLB()//获取剪切板的数据
  107. Elseif aa= 10 then
  108. a10 = Plugin.Sys.GetCLB()//获取剪切板的数据
  109. Else
  110. End if
  111. Delay 123
  112. KeyPress "Right", 1 //移动到下一个
  113. Delay 123
  114. aa = aa + 1
  116. Loop
  117. Delay 2000
  118. KeyDown 18, 1
  119. KeyPress 115, 1
  120. KeyUp 18, 1//alt+f4关闭xls表
  121. Delay 2000
  123. KeyPress "Down", 1 //tc界面向下选择
  125. Delay 200
  126. KeyDown 18, 1
  127. KeyPress 9, 1
  128. KeyUp 18, 1//alt+tab切换到chrome
  129. Delay 500
  131. bb = 2//默认先写第二列 人数
  133. Do Until bb > 13
  134. Delay 250
  135. If bb=1 then 
  136. Call Plugin.Sys.SetCLB(a1) //将数据写入剪切板 检查地点
  137. Elseif bb=2 then
  138. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  139. Elseif bb=3 then
  140. Call Plugin.Sys.SetCLB(a8) //将数据写入剪切板 时间1
  141. Elseif bb=4 then
  142. Call Plugin.Sys.SetCLB(a4) //将数据写入剪切板 CH4-1
  143. Elseif bb=5 then
  144. Call Plugin.Sys.SetCLB(a6) //将数据写入剪切板 CO2-1
  145. Elseif bb=6 then
  146. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度
  147. Elseif bb=7 then
  148. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 检查人
  149. Elseif bb=8 then
  150. Call Plugin.Sys.SetCLB(a2) //将数据写入剪切板 人数
  151. Elseif bb=9 then
  152. Call Plugin.Sys.SetCLB(a9) //将数据写入剪切板 时间2
  153. Elseif bb=10 then
  154. Call Plugin.Sys.SetCLB(a5)//将数据写入剪切板  CH4-2
  155. Elseif bb= 11 then 
  156. Call Plugin.Sys.SetCLB(a7) //将数据写入剪切板  CO2-2
  157. Elseif bb= 12 then
  158. Call Plugin.Sys.SetCLB(a3) //将数据写入剪切板 温度
  159. Elseif bb= 13 then
  160. Call Plugin.Sys.SetCLB(a10) //将数据写入剪切板 检查人
  161. Else
  162. End if
  163. Delay 250
  164. KeyDown 17, 1
  165. KeyPress 86, 1
  166. KeyUp 17, 1//粘贴整列
  167. Delay 250
  168. KeyPress "Up", c1//定位到下一列的第一行
  169. Delay 123
  170. KeyPress "Right", 1 //移动到下一个
  171. Delay 123
  172. bb = bb + 1
  173. TracePrint bb
  174. Loop
  176. Delay 2000
  177. MoveTo 234, 256
  178. Delay 200
  179. LeftClick 1   //点击提交
  180. Delay 1500
  182. Delay 500
  183. MoveTo 386, 222
  184. Delay 200
  185. LeftClick 1   //点击 关闭
  186. Delay 1500
  188. End Sub
  190. Delay 800
  191. LockMouse //锁定鼠标位置
  193. Call Plugin.Sys.SetCLB(a) //清空剪切板
  194. Delay 800
  196. Call 子程序1()
  197. Call Plugin.Sys.SetCLB(d1) //将数据写入剪切板
  198. Call 子程序2()
  200. Call 子程序1()
  201. Call Plugin.Sys.SetCLB(d2) //将数据写入剪切板
  202. Call 子程序2()
  204. Call 子程序1()
  205. Call Plugin.Sys.SetCLB(d3)//将数据写入剪切板
  206. Call 子程序2()
  208. //Call 子程序1()
  209. //Call Plugin.Sys.SetCLB(d4) //将数据写入剪切板
  210. //Call 子程序2()
  212. //Call 子程序1()
  213. //Call Plugin.Sys.SetCLB(d5) //将数据写入剪切板
  214. //Call 子程序2()
  216. //Call 子程序1()
  217. //Call Plugin.Sys.SetCLB(d6) //将数据写入剪切板
  218. //Call 子程序2()
  220. //Call 子程序1()
  221. //Call Plugin.Sys.SetCLB(d7) //将数据写入剪切板
  222. //Call 子程序2()
  224. //Call 子程序1()
  225. //Call Plugin.Sys.SetCLB(d8) //将数据写入剪切板
  226. //Call 子程序2()
  228. //Call 子程序1()
  229. //Call Plugin.Sys.SetCLB(d9) //将数据写入剪切板
  230. //Call 子程序2()
  232. //Call 子程序1()
  233. //Call Plugin.Sys.SetCLB(d10) //将数据写入剪切板
  234. //Call 子程序2()

迁移

标注好迁移注意事项，主要是初始位置的设置和点坐标的查询，不保证都能执行成功。

发布

版本号要有规律，脚本命名要规范，注释要尽量写清楚，变量命名要统一。

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： 本明书馆 > 《编程》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多