点击此处--->
群内免费提供SAP练习系统（在群公告中）
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
专家，
需要有关vba代码的帮助，以便在程序包中传递参数，该参数在SAP BPC 10.1 NW中完美运行的vba代码下方：
Sub Copy_to_Periods（）
将cPackageId设置为字符串
将cDimName设置为字符串
将cTimeId设置为字符串
将myFolderName，myFileName设置为字符串
将vFileName设置为字符串
"常规类型清理"
将对象自动化作为对象
设置oAutomation = CreateObject（" FPMXLClient.EPMAddInAutomation"）
将oAutomationDM视作对象
设置oAutomationDM = CreateObject（" FPMXLClient.EPMAddInDMAutomation"）
将oPackage视作对象
设置oPackage = CreateObject（" FPMXLClient.ADMPackage"）
cDimName ="参与度"
cPackageGroupId =" Referentiel"
cPackageId =" IMPORT_MASTER"
'声明包
使用oPackage
.filename ="/img/CPMB/IMPORT_MASTER"'<----输入进程链ID
.groupId = cPackageGroupId
.packageDesc =""
.packageId = cPackageId
.packageType ="流程链"
.teamId =""
.UserGroup =" 0010"
结尾为
"本地响应XML文件的路径"
vFileName = Environ（" USERPROFILE"）＆" \ Documents \ LocalResponse50.xml"
"查找并删除旧的本地响应文件
'输入文件路径以从中删除文件
myFolderName = Environ（" USERPROFILE"）＆" \ Documents \"
myFileName = Dir（myFolderName＆" * .xml"）
'删除所有没有Excel扩展名的文件
在myFileName时执行<>" LocalResponse50.xlsx"
如果myFileName =""，则退出执行
杀死myFolderName和myFileName
myFileName = Dir
循环
"创建本地响应XML文件
调用CreateLocalResponseXMLFile（vFileName，cPackageId，cDimName）
"运行程序包
调用oAutomationDM.RunPackage（oPackage，vFileName）
结束子
现在，我尝试在SAP BPC 11-Office 2.7分析中使用该代码。 我做了一些更改，下面的代码：
Sub Copy_to_Periods（）
将cofCom视作对象
设置cofCom = Application.COMAddIns（" SapExcelAddIn"）。Object
将cPackageId设置为字符串
将cDimName设置为字符串
将cTimeId设置为字符串
将myFolderName，myFileName设置为字符串
将vFileName设置为字符串
"常规类型清理"
将对象自动化作为对象
设置oAutomation = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
将oAutomationDM视作对象
设置oAutomationDM = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
将oPackage视作对象
设置oPackage = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
将epm视作对象
设置epm = cofCom.GetPlugin（" com.sap.epm.FPMXLClient"）
cDimName =" SUJET_INVEST"
cPackageGroupId ="唐纳斯之战"
cPackageId ="导入主数据"
'声明包
使用oPackage
.filename ="/img/CPMB/IMPORT_MASTER"
.groupId = cPackageGroupId
.packageDesc =""
.packageId = cPackageId
.packageType ="流程链"
.teamId =""
.UserGroup =" 0010"
结尾为
"本地响应XML文件的路径"
vFileName = Environ（" USERPROFILE"）＆" \ Documents \ LocalResponse50.xml"
"查找并删除旧的本地响应文件
'输入文件路径以从中删除文件
myFolderName = Environ（" USERPROFILE"）＆" \ Documents \"
myFileName = Dir（myFolderName＆" * .xml"）
'删除所有没有Excel扩展名的文件
myFileName时执行<>" LocalResponse50.xlsx"
如果myFileName =""，则退出执行
杀死myFolderName和myFileName
myFileName = Dir
循环
"创建本地响应XML文件
调用CreateLocalResponseXMLFile（vFileName，cPackageId，cDimName）
"运行程序包
调用oAutomationDM.RunPackage（oPackage，vFileName）
结束子
我的包声明出错，Excel似乎无法识别该属性
关于如何在SAP BPC 11-Analysis for Office 2.7中正确编写它的任何想法？
亲切的问候
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 996 的问题《静默的提示数据管理器软件包-SAP BPC》','https://www.easysap.com/q-22681.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
我在对象引用中看到一些奇怪的东西
请阅读我的博客：
https： //blogs.sap.com/2017/06/16/simple-vba-function-to-pass-parameters-dm-packages /
开始于：
使用" DataManagerAdvancedRunPackage"的新代码
...
您已经关闭，因为接受了正确的答案，但是问题没有答案。 如果您能够自己解决问题，那么如果您能提供解决方案，那就太好了–为了以后可能遇到类似问题的其他人的利益。
出于这个原因，我重新提出了问题 。
亲切的问候，
-杰里
一周热门 更多>