20231012_按键精灵练习_excel表数据循环写入网页窗口

szc_1985

于 2023-10-12 19:24:21 发布

阅读量993

点赞数

分类专栏：按键精灵文章标签： excel

本文链接：https://blog.csdn.net/szc_1985/article/details/133797601

版权

按键精灵专栏收录该内容

1 篇文章 0 订阅

订阅专栏

按键精灵练习_excel表数据循环写入网页窗口

// D:\小信发起存储\BOMC工单数据.xlsx

//定义行号、列号
hang = 2
lie = 3

Rem excel表循环
//----打开 xlsx 读取内容
Call Plugin.Office.OpenXls("D:\小信发起存储\BOMC工单数据.xlsx")
//----延时
Delay 200
biaoti = "q" & Plugin.Office.ReadXls(1, hang, lie)
neirong = Plugin.Office.ReadXls(1, hang, lie + 1)

//保存数据再打开一次
Call Plugin.Office.CloseXls()
    
If biaoti <> "" Then 
    //显示内容
    //MessageBox "流水号:" & hang & "-" & lie & " 工单数据:" & biaoti
    
    //可以在这里加入申告发起
    Goto 小信发起
    //具体操作
    Rem 小信结束
    
    hang = hang + 1
    //跳转回 读取数据 读取下一个工号
    Goto excel表循环
    
Else 
    //获取当前电脑时间
    in_timei = Plugin.Sys.GetDateTime()
    //----打开 xlsx 读取内容
    Call Plugin.Office.OpenXls("D:\小信发起存储\BOMC工单数据.xlsx")
    //执行完成写入执行时间
    Call Plugin.Office.WriteXls(1, hang, lie - 1, in_timei)
    MessageBox "流水号:" & hang & "-" & lie & " 工单完成:" & in_timei
End If

//小信处理模块
Rem 小信发起

//鼠标挪动到我要报障位置
FindPic 0, 0, 1920, 1080, "D:\小信发起存储\我要报障.bmp", 0.95, int_a1, int_b1
//MessageBox "我要报障:" & int_a1 &"-"& int_b1
Delay 200
If int_a1 > 0 and int_b1 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a1 + 5, int_b1 + 5
    LeftClick 1
    //解除鼠标
    UnlockMouse
End If

Delay 300

//鼠标挪动到确定按钮位置
FindPic 0, 0, 1920, 1080, "D:\小信发起存储\确定按钮.bmp", 0.95, int_a2, int_b2
//MessageBox "确定按钮:" & int_a2 &"-"& int_b2
Delay 200
If int_a2 > 0 and int_b2 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a2 + 5, int_b2 + 5
    LeftClick 1
    //解除鼠标
    UnlockMouse
End If

Delay 2000

//鼠标滚轮向下，显示报障工单菜单
MouseWheel - 2 
Delay 300
FindPic 0, 0, 1920, 1080, "D:\小信发起存储\报障标题.bmp", 0.95, int_a3, int_b3
//MessageBox "报障标题:" & int_a3 &"-"& int_b3
Delay 200
If int_a3 > 0 and int_b3 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a3 + 115, int_b3 + 5
    LeftClick 1
    Delay 200
    //输入标题文字
    SayString biaoti
    Delay 4000
    //解除鼠标
    UnlockMouse
End If

Delay 2000

FindPic 0, 0, 1920, 1080, "D:\小信发起存储\问题内容.bmp", 0.95, int_a6, int_b6
//MessageBox "问题内容:" & int_a6 &"-"& int_b6
Delay 200
If int_a6 > 0 and int_b6 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a6 + 115, int_b6 + 5
    LeftClick 1
    Delay 200
    //输入标题文字
    SayString neirong
    Delay 2000
    //解除鼠标
    UnlockMouse
End If

Delay 2000

FindPic 0, 0, 1920, 1080, "D:\小信发起存储\一级分类.bmp", 0.99, int_a4, int_b4
//MessageBox "一级分类:" & int_a4 &"-"& int_b4
Delay 200
If int_a4 > 0 and int_b4 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a4 + 115, int_b4 + 5
    LeftClick 1
    Delay 200
    KeyPress "Down", 1
    Delay 200
    KeyPress "Enter", 1
    Delay 200
    //解除鼠标
    UnlockMouse
End If

Delay 2000

FindPic 0, 0, 1920, 1080, "D:\小信发起存储\二级分类.bmp", 0.99, int_a5, int_b5
//MessageBox "二级分类:" & int_a5 &"-"& int_b5
Delay 200
If int_a5 > 0 and int_b5 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a5 + 115, int_b5 + 5
    LeftClick 1
    Delay 200
    KeyPress "Down", 1
    Delay 200
    KeyPress "Enter", 1
    Delay 200
    //解除鼠标
    UnlockMouse
End If

Delay 2000

FindPic 0, 0, 1920, 1080, "D:\小信发起存储\提交按钮.bmp", 0.95, int_a7, int_b7
//MessageBox "提交按钮:" & int_a7 &"-"& int_b7
Delay 200
If int_a7 > 0 and int_b7 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a7 + 5, int_b7 + 5
    LeftClick 1
    //解除鼠标
    UnlockMouse
    Delay 8000
End If

Delay 2000

FindPic 0, 0, 1920, 1080, "D:\小信发起存储\清空聊天记录.bmp", 0.95, int_a8, int_b8
//MessageBox "清空聊天记录:" & int_a8 &"-"& int_b8
Delay 200
If int_a8 > 0 and int_b8 > 0 Then 
    //锁定鼠标
    LockMouse
    MoveTo int_a8 + 5, int_b8 + 5
    LeftClick 1
    Delay 2000
    //解除鼠标
    UnlockMouse
End If

Goto 小信结束