高分求一个按键精灵识别excel数字的脚本

来源:百度知道 编辑:UC知道 时间:2024/06/01 23:58:51
我的需要是这样的
首先要识别出excel中某个单元格里的数字,然后切换到另一个程序里输入这个数字,然后还要识别出这个程序里所现实的数字并输入到excel里,这其中某几个数字需要经过一些简单的计算,有时又需要识别excel和另一程序里的数字并计算其中的差然后在输入
重点就是要让按键精灵识别出excel和那个程序中的数字和字母(单词),这点该怎么弄?
惭愧啊,源代码我有点是看不懂,我需要识别的数字大多是财务用的,所以要保留小数点以后两位,按键精灵能识别小数点吗?哪位高手能帮我做个样本,具体要求是识别excel中A1单元格的数字(8位数,包括小数点后两位)然后输入到B1单元格里,然后在计算A2和A3单元格里两个数字的差(A2-A3 注意这里是要按键精灵自己计算,把计算结果输入,而不是让excel计算),输入到B2单元格里,有了这个样本估计我就能做出我需要的脚本了,如果做出的样本可用,追加100分,望各位高手赐教啊~~~

识别的标准是什么?根据什么识别?只要整数吗?或者...
你描述的情况好像比较复杂,实现准确的全自动可能性不大,
给你一段脚本参考(注释详细),我用这个脚本把一个应用程序的数据复制到EXCEL里。
dim strtext
dim path as String
dim hang as integer
dim lie as integer
dim n as integer
VBS n=1
VBS i=1
//用变量i配合x控制循环次数
VBS lie=3
//从第3列开始写入,lie是列
Plugin hwnd = Window.GetKeyFocusWnd()
//获得当前窗口句柄
Delay 100
//VBSCall path=inputbox("请输入要写入的excel文件路径,如:d:\损失率.xls")
path="d:\dw\抄表赵.xls"
VBSCall n=cint(inputbox("要写入第几张工作表,请输入整数"))
VBSCall hang =cint(inputbox("从第几行开始写入"))
//hang=2
//从第hang行开始写入,hang是行
VBSCall x =cint(inputbox("要写入多少条到excel,最多25"))
//cint数字函数! 能把字符型变成数字!强制执行整数运算
Delay 100
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
Delay 200
While i<=x
Plugin Window.Active(hwnd)
//激活窗口
Delay 666