Question

按键精灵if then的问题

Call Plugin.Office.OpenXls("C:\1.xls")
call plugin.Office.ReadXls(1, 1, 1, "C:\1.xls")
If a = "1" Then
call runapp ("D:\Program Files\Kingdee\KIS\BZB\KDWin.exe")
End If
不知道哪位高手能指点一下，我想要读取excel里面的一个单元格，如果单元格等于1，就打开软件

Answer 1

Dim a //定义变量a
Call Plugin.Office.OpenXls("C:\1.xls")
a = Plugin.Office.ReadXls(1, 1, 1, "C:\1.xls") //把读取的单元格内容赋值于a
If a = "1" Then

RunApp "D:\Program Files\Kingdee\KIS\BZB\KDWin.exe" //这是按键精灵最新的用法

End If
TracePrint a
Call Plugin.Office.CloseXls() //记得关闭打开的表格