如何使用按键精灵读取Excel表格内容并将提取出的内容填入另一个软件中去?

软件是一个类似文件管理系统求详细过程仔细说明要是有图文解说更好了!!!!不胜感激!!!!!图文求... 软件是一个类似文件管理系统
求详细过程仔细说明
要是有图文解说更好了!!!!
不胜感激!!!!!
图文求
展开
 我来答
硅谷少年
2018-09-19 · TA获得超过7553个赞
知道大有可为答主
回答量:7116
采纳率:82%
帮助的人:1383万
展开全部

我做过,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

你自己努力学,我不提供答疑,我也是自己一个人啃出来的。

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式