Call Plugin.Office.OpenXls("C:\Users\Lenovo\Desktop\按键精灵\近期防火检查100家.xls")
For i = 12 To 20
单位名称 = Plugin.Office.ReadXls(1,i,2)//显示这一步有问题
//新增
FindPic 1096,819,1166,888,"C:\Users\Lenovo\Desktop\按键精灵\新增.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 200
End If
Delay 300
//选择单位
FindPic 1040,350,1155,418,"C:\Users\Lenovo\Desktop\按键精灵\请选择.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 200
End If
Delay 300
//请输入单位名称
FindPic 764,134,1152,373,"C:\Users\Lenovo\Desktop\按键精灵\输入单位名称.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 200
SayString 单位名称
Delay 1000
End If
//点击确定
Delay 200
MoveTo 1126, 199
LeftClick 1
Delay 800
MoveTo 883, 288
LeftClick 1
Delay 500
//下一步
FindPic 787,660,1137,775,"C:\Users\Lenovo\Desktop\按键精灵\下一步01.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 800
End If
//点击提示确定
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\提示确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 300
End If
//防火巡查1
//FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\1.bmp",0.9,intX,intY
//If intX > 0 And intY > 0 Then
//MoveTo intX+10,intY+50
//LeftClick 1
//Delay 300
//End If
//
//防火巡查2
//FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\2.bmp",0.9,intX,intY
//If intX > 0 And intY > 0 Then
//MoveTo intX+10,intY+50
//LeftClick 1
//Delay 300
//End If
//
//防火巡查3
//FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\3.bmp",0.9,intX,intY
//If intX > 0 And intY > 0 Then
//MoveTo intX+10,intY+50
//LeftClick 1
//Delay 300
//End If
//
//防火巡查4
//FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\4.bmp",0.9,intX,intY
//If intX > 0 And intY > 0 Then
//MoveTo intX+10,intY+50
//LeftClick 1
//Delay 300
//End If
//
//防火巡查5
//FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\5.bmp",0.9,intX,intY
//If intX > 0 And intY > 0 Then
//MoveTo intX+10,intY+50
//LeftClick 1
//Delay 300
//End If
//向下滑动3次
KeyPress "
ageDown", 3
Delay 300
//防火巡查18
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\18.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10,intY+50
LeftClick 1
Delay 300
End If
//防火巡查19
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\19.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10,intY+50
LeftClick 1
Delay 300
End If
//防火巡查20
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\20.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10,intY+50
LeftClick 1
Delay 300
End If
//防火巡查21
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\21.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10,intY+50
LeftClick 1
Delay 300
End If
//向下滑动3次
KeyPress "
ageDown", 2
Delay 800
//否
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\否.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX - 20, intY
Delay 200
LeftClick 1
Delay 800
End If
//整改请选择
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\整改请选择.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 800
End If
//整改日(调整整改时间)
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\整改日.bmp",0.9,intX,intY
If intX > 0 And intY> 0 Then
MoveTo intX,intY+200
LeftClick 1
Delay 800
End If
//整改日确定
FindPic 756,129,1287,954,"C:\Users\Lenovo\Desktop\按键精灵\整改日确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 500
End If
//下一步
MoveTo 953, 817
Delay 300
LeftClick 1
Delay 300
//提交
MoveTo 953, 817
Delay 300
LeftClick 1
Delay 1000
KeyPress "
ageDown", 1
Delay 1000
KeyPress "
ageDown", 1
Delay 1000
//关闭
MoveTo 961,820
Delay 300
LeftClick 1
Delay 800
Next
LeftClick 1
Delay 200
MoveTo 883, 288
LeftClick 1
Delay 500
//下一步
FindPic 787,660,1137,775,"C:\Users\Lenovo\Desktop\按键精灵\下一步01.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 300
End If
//点击确定
FindPic 800,390,1120,651,"C:\Users\Lenovo\Desktop\按键精灵\提示确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
LeftClick 1
Delay 300
End If
//
Next