点击此处--->   群内免费提供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中正确编写它的任何想法？

亲切的问候