如何使用按键精灵读取Excel表格内容并将提取出的内容填入另一个软件中去？
发布网友
发布时间：2022-04-25 05:52
我来回答
共1个回答
热心网友
时间：2023-10-31 17:21
我做过，excel里放参数，控制另外一个软件自动运行的。
部分核心代码如下：
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
你自己努力学，我不提供答疑，我也是自己一个人啃出来的。
