Question

按键精灵求助，为什么这个循环执行不了

Rem start
Dim a, b, x
x = 1
Call Plugin.Office.OpenXls("C:\test.xls")
a = Plugin.Office.ReadXls(1, x, 1)
b = Plugin.Office.ReadXls(1, x, 2)
x = x + 1
Call Plugin.Office.CloseXls()
Goto start
delay 50
call plugin.sys.setclb(a)
saystring a
我想把每一行的第一列、第二列里的数字写入到剪贴板里。如果不加循环已经可以执行了，但是第二行第二列的数字无法继续到剪贴板里，循环哪里错了？

Answer 1

Dim a, b, x
x=0
Rem start
x = x + 1
Call Plugin.Office.OpenXls("C:\test.xls")a = Plugin.Office.ReadXls(1, x, 1)b = Plugin.Office.ReadXls(1, x, 2)Call Plugin.Office.CloseXls()delay 50call plugin.sys.setclb(a)saystring a
Goto start
很久没弄了 不知道对不对