标题:求助:VFP的PRG中用什么语句可以执行EXCEL中宏
只看楼主
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:0 
以下是引用laowan001在2021-10-18 16:17:42的发言:

估计EXCEL模板早就有了,早先是直接在EXCEL表里做工资,后来做了VFP程序管理工资的基础数据,导出到EXCEL里然后运行宏来完成计算工作,算是进了一步。如果是这样,其实还可以再进一步,由VFP直接完成工资的计算工作


百余个EXCEL工资表是用VFP生成的。如果生成工资条,对每个E表打开执行一下宏,那就太麻烦了。

当然了,工资条也可以用VFP来生成,感觉代码有点难。而宏是以前就存在的,所以想在VFP的PRG中加个语句,调用VBA的宏。以为可以省力一点。
2021-10-19 21:23
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:0 
以下是引用厨师王德榜在2021-10-18 14:15:07的发言:

参考如下代码:
* 注意:此方法成功的关键是用户必须允许EXCEL宏的运行。并且允许对VBA工程对象的访问。
* 假定EXCEL文档中已经有了一个叫做Sub ArrayFill()的宏.


    myexcel = CREATEOBJECT("Excel.Application")
    myexcel.DisplayAlerts = .F.  &&  不弹出警告框   
    wb = myexcel.Workbooks.open(cExlFullPath)
   

* 请确认勾选了: 可靠发行商中的 “信任对 Visual Basic 项目”的访问
myexcel.Run('ArrayFill', @arrEsj)  && @arrEsj是这个宏的参数.
        myexcel.save()   
        myexcel.quit()
        RELEASE myexcel

感谢王大厨,我抽时间测试来着。谢谢!
2021-10-19 21:25
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:54
帖 子:802
专家分:1914
注 册:2015-12-30
得分:0 
回复 11楼 xs591222
方便的话,可以放出一些EXCEL的宏,大家帮你看看是否麻烦
2021-10-20 07:49



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-507191-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.187594 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved