作者：乔山办公网日期：
返回目录：excel表格制作
这个不用按键精灵，应该用 网页 自动提交工具。专门针对网页批量填写
一次复制过去不行？非得逐个复制？为什么
打开EXCEL表，打开另一个软件输入界面，打开按键精灵，新建按健精灵录制来任务，开始录制，点击切换到EXCEL表，选中表格内容，复制，按键向下走一格，切换到另一个软件输入界面，点击选中输入窗格源，粘贴。保存该内容，然后新建另一知软件任务窗格（如是是列表式输入，可以按键向下走一格），切换到按键精灵，停止录制，任务重复改成一个大数比如一千次。执行按健道精灵录制任务即可。
我做过，excel里放参数，控制另外一个软件自动运行的。e79fa5e98193e78988e69d83337
部分核心代码如下：
UserVar wj="D:\123\123.xls"
UserVar rcpath="C:\Program Files (x86)\123\123.exe"
Call Plugin.office.OpenXls(wj) //注意要用xls文件，不要用xlsx文件，xlsx文件要用懒人office插件去解决，推荐xlsx文件另存为xls文件即可
For i=0 to 100
j = j + 1//Excel第几行
pe=Plugin.office.ReadXls(2, j, 5)
Redim preserve a(8, k)
a(0, k) = Plugin.office.ReadXls(2, j, 2)//图片文件名
a(1, k) = Plugin.office.ReadXls(2, j, 3)//数量
a(2, k) = Plugin.office.ReadXls(2, j, 1)//机型
a(3, k) = Plugin.office.ReadXls(2, j, 4)//画布规格
a(4, k) = Plugin.office.ReadXls(2, j, 5)//图片是否存在
a(5, k) = Plugin.office.ReadXls(2, j, 6)//画布是否需更换
//图片文件路径
a(6, k) = Plugin.office.ReadXls(2, 1, 7) & "\" & a(2, k) & "\" & a(0, k) & ".tif"
//如果图片文件路径有搜索更正过，则用更正后的路径
If len(Plugin.office.ReadXls(2, j, 7))>5 then a(6, k)=Plugin.office.ReadXls(2, j, 7)
k=k+1
End If
Next
Call Plugin.office.CloseXls()
RunApp rcpath
KeyPress "Enter", 1
Delay 800
SayString a(6, i)
Delay 500
你自己努力学，我不提供答疑，我也是自己一个人啃出来的。