动态传递参数以使用VBA/Macros运行DM-VBA不起作用

2020-09-25 04:09发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好大师, 我一直在广泛研究如...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


你好大师,

我一直在广泛研究如何动态传递参数以运行Data Manager Package。 但是,即使按照我在本文档上明确解释的所有说明进行操作,也 http://scn.sap。 com/docs/DOC-32636 我的VBA代码不断抛出错误"运行时错误52:文件名或数字错误",它指出了这行代码;

设置objStream = objFile.OpenTextFile(strFilename(strPackageName),_
  ForWriting,正确)
 

您中有人遇到过这样的错误吗?如果是,您如何调试它?

这是完整的VBA代码,以备不时之需;

公共子executeDmPackageWithParameters()
 '在该位置创建答案提示文件
 '在名称范围" PACKAGE"中指定
  createAnswerPromptFile" PACKAGE"," PARAMETERS"


 '获取DM Automation类实例
  昏暗的objDMautomation作为EPMAddInDMAutomation
  设置objDMautomation = New EPMAddInDMAutomation
 '运行在Excel名称范围" PACKAGE"中指定的包,
 '使用名称范围" PACKAGE"中指定的promtp文件
  objDMautomation.RunPackage objPackageFromSheet(" PACKAGE"),_
  strFilename(" PACKAGE")
 结束子
 私有函数strFilename(strRange As String)As String
 '获取设置DM包参数的范围
  Dim rngPackageRange作为范围
  设置rngPackageRange = Application.Names(strRange).RefersToRange




 '遍历行
  对于i = 1到rngPackageRange.Rows.Count
  如果rngPackageRange(i,1).Value =" PromptFile"然后
  strFilename = rngPackageRange(i,2).Value
  退出功能
  万一
  下一个
 结束功能
 私有函数strPackageDescription(strRange As String)As String
 '获取设置DM包参数的范围
  Dim rngPackageRange作为范围
  设置rngPackageRange = Application.Names(strRange).RefersToRange
 '遍历行
  对于i = 1到rngPackageRange.Rows.Count
  如果rngPackageRange(i,1).Value =" PackageId",则
  strPackageDescription = rngPackageRange(i,2).Value
  退出功能
  万一
  下一个
 结束功能
 私有函数objPackageFromSheet(strRange As String)作为ADMPackage
 '获取设置DM包参数的范围
  Dim rngPackageRange作为范围
  设置rngPackageRange = Application.Names(strRange).RefersToRange


 '创建ADM包对象
  设置objPackageFromSheet =新的ADMPackage


 '遍历行
  对于i = 1到rngPackageRange.Rows.Count


  选择Case rngPackageRange(i,1).Value


  案例"文件名"
  objPackageFromSheet.Filename = rngPackageRange(i,2).Value


  案例" GroupId"
  objPackageFromSheet.groupId = rngPackageRange(i,2).Value


  案例" PackageDesc"
  objPackageFromSheet.packageDesc = rngPackageRange(i,2).Value


  案例" PackageId"
  objPackageFromSheet.packageId = rngPackageRange(i,2).Value


  案例" PackageType"
  objPackageFromSheet.packageType = rngPackageRange(i,2).Value


  案例" TeamId"
  objPackageFromSheet.teamId = rngPackageRange(i,2).Value


  案例"用户组"
  objPackageFromSheet.UserGroup = rngPackageRange(i,2).Value


  结束选择
   下一个
 结束功能
 私人子createAnswerPromptFile(strPackageName作为字符串,_
  strParametersName作为字符串)
 '创建一个新的XML文档
  昏暗的objDOM作为DOMDocument
  设置objDOM = New DOMDocument


 '设置XML文档的处理指令
  昏暗的objProcessingInstruction作为IXMLDOMProcessingInstruction
  设置objProcessingInstruction = _
  objDOM.createProcessingInstruction(" xml",_
  "版本='1.0'编码='utf-16'")
  objDOM.appendChild objProcessingInstruction


 '创建根元素
  昏暗的objRootElem作为IXMLDOMElement
  设置objRootElem = objDOM.createElement(" ArrayOfAnswerPromptPersistingFormat")
  objDOM.appendChild objRootElem


 XSI属性
  昏暗的objMemberRel作为IXMLDOMAttribute
  设置objMemberRel = objDOM.createAttribute(" xmlns:xsi")
  objMemberRel.NodeValue =" http://www.w3.org/2001/XMLSchema-instance"
  objRootElem.setAttributeNode objMemberRel


 XSD属性
  设置objMemberRel = objDOM.createAttribute(" xmlns:xsd")
  objMemberRel.NodeValue =" http://www.w3.org/2001/XMLSchema"
  objRootElem.setAttributeNode objMemberRel




 '获取包含参数的单元格范围
  调光参数作为范围
  设置rngParameters = ThisWorkbook.Names(strParametersName).RefersToRange
  'Excel.Names(strParametersName).RefersToRange


 '
  昏暗的objCurrentStringPairParent为IXMLDOMElement
 '遍历每一行
  对于i = 1到rngParameters.Rows.Count


 '查看正在传递的参数类型
  选择大小写rngParameters(i,2).Value




 '如果它是单个参数,则将参数节点添加到根节点
  情况"参数"
  addSingleSelectionParameterToXML rngParameters(i,1).Value,_
  rngParameters(i,4).Value,_
 objRootElem,_
 objDOM
 '如果是值列表
  案例" StringListPairs"


 '如果是一组新的字符串列表对,则创建一个新的父级
  如果rngParameters(i,1).Value <> strCurrentStringPair然后
  strCurrentStringPair = rngParameters(i,1)。值
  设置objCurrentStringPairParent = _
  getStringListPairParent(rngParameters(i,1).Value,_
  objRootElem,_
  objDOM)
  万一


 '将尺寸名称和值添加到父级
  addStringListPair rngParameters(i,3).Value,_
  rngParameters(i,4).Value,_
  objCurrentStringPairParent,_
  objDOM


  结束选择
  下一个


 '创建文件对象
  昏暗的objFile作为FileSystemObject
  设置objFile = New FileSystemObject


 '创建一个流以创建并写入文件
  昏暗的objStream作为TextStream
  设置objStream = objFile.OpenTextFile(strFilename(strPackageName),_
  ForWriting,正确)


 '先写DM包的名称,然后写XML输出
  objStream.WriteLine strPackageDescription(strPackageName)和_
  " {param_separator}"和_
  objDOM.XML


 '关闭文件
  objStream.Close
 结束子
 私有函数addStringListPair(strVariableName As String,_
  strValue作为字符串,_
 objParent作为IXMLDOMElement,_
 objDOM As DOMDocument)
 '创建" StringListPair"节点
  昏暗的objStringListPairElement作为IXMLDOMElement
  设置objStringListPairElement = _
  objDOM.createElement(" StringListPair")
  objParent.appendChild objStringListPairElement




 '创建包含变量名称的" Str"元素
  昏暗的objStrElement作为IXMLDOMElement
  设置objStrElement = objDOM.createElement(" str")
  objStringListPairElement.appendChild objStrElement
  objStrElement.Text = strVariableName


 '创建" lst"元素
  昏暗的objLstElement作为IXMLDOMElement
  设置objLstElement = objDOM.createElement(" lst")
  objStringListPairElement.appendChild objLstElement


 '创建包含变量值的"字符串"元素
  昏暗的objStringElement作为IXMLDOMElement
  设置objStringElement = objDOM.createElement(" string")
  objLstElement.appendChild objStringElement
  objStringElement.Text = strValue
 结束功能
 私有函数getStringListPairParent(strVariableName As String,_
  objParent作为IXMLDOMElement,_
 objDOM As DOMDocument)As IXMLDOMElement
 '创建" AnswerPromptPersistingFormat"节点
  Dim objAnswerPromptPersistingFormatElement作为IXMLDOMElement
  设置objAnswerPromptPersistingFormatElement = _
  objDOM.createElement(" AnswerPromptPersistingFormat")
  objParent.appendChild objAnswerPromptPersistingFormatElement


 '创建" _ap"节点
  将objApElement昏暗为IXMLDOMElement
  设置objApElement = objDOM.createElement(" _ ap")
  objAnswerPromptPersistingFormatElement.appendChild objApElement


 '创建参数名称元素
  昏暗的objParameterElement作为IXMLDOMElement
  设置objParameterElement = objDOM.createElement(" Name")
  objApElement.appendChild objParameterElement
  objParameterElement.Text = strVariableName


 '创建值元素
  将objValuesElement昏暗为IXMLDOMElement
  设置objValuesElement = objDOM.createElement(" Values")
  objApElement.appendChild objValuesElement


 '创建" _apc"节点
  设置getStringListPairParent = objDOM.createElement(" _ apc")
  objAnswerPromptPersistingFormatElement.appendChild getStringListPairParent
 结束功能
 专用函数addSingleSelectionParameterToXML(strVariableName As String,_
  strValue作为字符串,_
  objParent作为IXMLDOMElement,_
 objDOM As DOMDocument)
 '创建" AnswerPromptPersistingFormat"节点
  Dim objAnswerPromptPersistingFormatElement作为IXMLDOMElement
  设置objAnswerPromptPersistingFormatElement = _
  objDOM.createElement(" AnswerPromptPersistingFormat")
  objParent.appendChild objAnswerPromptPersistingFormatElement


 '创建" _ap"节点
  将objApElement昏暗为IXMLDOMElement
  设置objApElement = objDOM.createElement(" _ ap")
  objAnswerPromptPersistingFormatElement.appendChild objApElement
 '创建参数名称元素
  昏暗的objParameterElement作为IXMLDOMElement
  设置objParameterElement = objDOM.createElement(" Name")
  objApElement.appendChild objParameterElement
  objParameterElement.Text = strVariableName


 '创建值元素
  将objValuesElement昏暗为IXMLDOMElement
  设置objValuesElement = objDOM.createElement(" Values")
  objApElement.appendChild objValuesElement


 '使用传递给参数的值创建字符串元素
  昏暗的objStringElement作为IXMLDOMElement
  设置objStringElement = objDOM.createElement(" string")
  objValuesElement.appendChild objStringElement
  objStringElement.Text = strValue




 结束功能

 

并且我正在尝试传递参数以运行此DM;

如果您愿意,我还可以提供"参数"和"包装"的提示列表和名称范围。 提前致谢。

(37.1 kB)