按键精灵 读取excel

Call Plugin.Office.OpenXls("D:k.xls")
Text = Plugin.Office.ReadXls(1, 1, 2)

MessageBox "读出内容为:"&Text
Call Plugin.Office.CloseXls()

=========================================
为麻弹出来的窗口,只有“读出内容为:”
而不显示K.XLS里的内容,D:k.xls真实存在啊??

第1个回答  2014-05-18
forx=1
fory=1
Rem star
Call Plugin.Office.OpenXls("路径.xls")
Text = Plugin.Office.ReadXls(1, forx, fory) \\1(第一页),(第forx行),1(第fory列)
Call Plugin.Office.CloseXls() \\关闭文档
Goto star

\\第一次读取文档1行1列的信息,第二次读取2行2列信息,无限循环。中间加一个写入代码就可以将读取的信息放入相应的目标了
PS:不用每次都打开,可以写个多线程的就一次完成所以的账号密码输入
相似回答