Question

高悬赏求:如何用按键精灵8写个自动获取Excal单元格信息并写入当前文本框中的脚本.

Excal表格路径: C:\测试.xls

Excal表为5行2列, 数据类型都是整型;

用按键精灵8

在一个页面的文本框中
实现 双击鼠标左键 从Excal表格中获取第一行第一列信息 并且输出到鼠标双击左键文本框中

双击鼠标右键 从Excal表格中获取第一行第二列信息 并且输出到鼠标双击右键的文本框中
完成后自动删除 中第一行第一列和第二列的数据;

没明白的可看图:.

启动服务用TAB 键 中止服务用 ESC键
我已经完成自动获取和输出到当前文本框了
都完成后怎么实现自动删除表格中的这一条记录啊?

Answer 1

没办法删除的，只能替换成“空”或者你可以在旁边做标记，比如在第一行第三列中
我想你删除它是不是，让下一行自动提为第一行啊，没必要，你可以设置个标志变量，当你点击右键后，标志变量自动+1，而后就可以利用这个标志变量读下一行啊！
======================================
Call Plugin.Office.OpenXls("C:\测试.xls")
Delay 100
i=1:j=0
Rem 继续
If i<>j then
Text1 = Plugin.Office.ReadXls(1, i, 1)
Text2 = Plugin.Office.ReadXls(1, i, 2)
j=i
End If
Mouse=WaitClick
If Mouse =32770 Or Mouse =32769 Then
SayString Text1
Delay 100
End If
If Mouse =32774 Or Mouse =32773 Then
SayString Text2
Delay 100
Call Plugin.Office.WriteXls(1, i, 3, "标记")
Delay 100
i=i+1
End If
Goto 继续
Sub OnScriptExit()
Call Plugin.Office.CloseXls()
End Sub

追问

把鼠标左右键点击 改为 键盘 TAB 键 和 CAPLOCK 键 怎么改啊?

追答

我只提供思路，自己改吧，不要完全依赖别人