顶起来，求不沉，怎么按键吧没人啊？？

我是选中顾客名称的输入框后，按F10直接运行脚本的

这个是后面试用懒人插件版的代码，好像错误比较多
Call Plugin.LazyOffice.ExcelOpen("C:\Users\admin\Desktop\3.29发票填开排序后.xlsx")
Dim x,y
x = 401
y = 1
Call Plugin.LazyOffice.ExcelRead(1, 401, 1)
Text = Call Plugin.LazyOffice.ExcelRead(1, 401, 1)
SayString Text
TracePrint Text
KeyPress "Tab", 1
Call Plugin.LazyOffice.ExcelRead(1, 401, 2)
Text=Call Plugin.LazyOffice.ExcelRead(1, 401, 2)
SayString Text
Delay 1000
KeyPress "Tab", 1
SayString "台"
Delay 1000
KeyPress "Tab", 1
SayString "1"
Delay 1000
KeyPress "Tab", 1
Call Plugin.LazyOffice.ExcelRead(1, 401, 3)
Text=Call Plugin.LazyOffice.ExcelRead(1, 401, 3)
SayString Text
Delay 1000
KeyPress "Tab", 2
Call Plugin.LazyOffice.ExcelRead(1, 401, 4)
Text=Call Plugin.LazyOffice.ExcelRead(1, 401, 4)
SayString Text
Call Plugin.LazyOffice.ExcelClose()
Delay 1000
EndScript
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Call Plugin.Window.Active(Hwnd)

这个是按键精灵自带office插件版
Call Plugin.Office.OpenXls("C:\Users\admin\Desktop\3.29发票填开排序后.xlsx")
Dim x,y
x = 401
y = 1
Text = Plugin.Office.ReadXls(1, 401, 1)
SayString Text
KeyPress "Tab", 1
Text=Call Plugin.Office.ReadXls(1, 401, 2)
SayString Text
Delay 1000
KeyPress "Tab", 1
SayString "台"
Delay 1000
KeyPress "Tab", 1
SayString "1"
Delay 1000
KeyPress "Tab", 1
Text=Call Plugin.Office.ReadXls(1, 401, 3)
SayString Text
Delay 1000
KeyPress "Tab", 2
Text=Call Plugin.Office.ReadXls(1, 401, 4)
SayString Text
Call Plugin.Office.CloseXls()
Delay 1000
EndScript