如何使用按键精灵读取Excel表格内容并将提取出的内容填入另一个软件中去?
软件是一个类似文件管理系统求详细过程仔细说明要是有图文解说更好了!!!!不胜感激!!!!!图文求...
软件是一个类似文件管理系统
求详细过程仔细说明
要是有图文解说更好了!!!!
不胜感激!!!!!
图文求 展开
求详细过程仔细说明
要是有图文解说更好了!!!!
不胜感激!!!!!
图文求 展开
1个回答
展开全部
我做过,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
你自己努力学,我不提供答疑,我也是自己一个人啃出来的。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |