用按键精灵怎么读取EXCEL数据？

按键精灵里的插件命令：\x0d\x0a//定义变量//\x0d\x0adim a,text\x0d\x0aCall Plugin.Office.OpenXls("C:\AA.xls")\x0d\x0aa = 1\x0d\x0ax = 1\x0d\x0ay = 2\x0d\x0a//读取表格，括号内第2个是行，第3个是列//\x0d\x0aText = Plugin.Office.ReadXls(1, a, 1)\x0d\x0aa = a + 1\x0d\x0a//写入指定位置//\x0d\x0aCall Plugin.Office.WriteXls(2, x, 1, text)\x0d\x0ax = x + 1\x0d\x0aCall Plugin.Office.WriteXls(2, y, 1, text)\x0d\x0ay = y + 1\x0d\x0a\x0d\x0a如果需要读取B列，C列，就定义多几个变量，最后写个循环命令就行了。

给你个Access的例子（很早之前写的，现在好久没用过按键了）：

Ret = Plugin.Access.Connect(path,"")

If RET = true Then

Form1.短信1.Text="连接数据库成功"

原ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

Do

新ID = Plugin.Access.SelectData("MSG_Inbox", "max(ID)", "MMSUrl='" &num &"'")

If 新ID = 原ID Then

Delay 5000

Else

Form1.短信老.Text=Form1.短信老.Text&"提取前"&新ID&VBCrLf

新ID = Lib.算法.提取字串符中所有数字(新ID)

Form1.短信老.Text=Form1.短信老.Text&"提取后"&新ID&VBCrLf

yzm = Plugin.Access.SelectData("MSG_Inbox", "MsgTitle","ID="&新ID)

If instr(yzm,"百度")>0 Then

Form1.短信1.Text=yzm

Exit Do

Else

Form1.短信1.Text="【获取到不是来自百度的短信？？？】"&VBCrLf&yzm

Exit Do

End If

End If

Loop

Ret = Plugin.Access.Close()

End If

---