2020-09-19 15:31发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）我正在尝试从UFT中的VBScr... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
我正在尝试从UFT中的VBScript使用EPM插件API。 以下是我到目前为止编写的代码：
Dim插件，obj，objwb，vbproj，fpm 设置obj = CreateObject（" Excel.Application"） 设置objwb = obj.Workbooks.Open（FileName） 设置vbproj = objwb.VBProject vbproj.References.AddFromFile（" C：\ Program Files（x86）\ SAPBOBJ \ PC \ FPMXLClient.Shim.dll"） 设置fpm = CreateObject（" FPMXLClient.EPMAddInAutomation"） fpm。连接" EPM_http：//服务器名称：8002/sap/bpc/_Environment_Model"，用户名，密码
我要打开EPM报告，然后加载参考库，最后尝试使用EPM API创建连接。 在最后一行，它引发错误"对象引用未设置为对象的实例"。 我相信问题在于创建对象实例。
由于文档仅在VBA中，有人可以阐明如何使用VBScript中的API
经过测试-正常工作！ 这是一个通用版本-将与独立的EPM加载项以及AO中的EPM（使用后期绑定）一起使用：
Dim obj，objwb，epmCOm，fpm 设置obj = CreateObject（" Excel.Application"） 设置objwb = obj.Workbooks.Open（" C：\ Users \ KalininVE \ Desktop \ TestReport.xlsx"） obj.Application.Visible = True 关于错误继续 设置fpm = obj.COMAddIns（" FPMXLClient.Connect"）。Object 如果Err.Number <> 0然后 设置epmCOm = obj.COMAddIns（" SapExcelAddIn"）。Object 设置fpm = epmCOm.GetPlugin（" com.sap.epm.FPMXLClient"） 万一 出错时转到0 fpm.Connect" _FPM_BPCNW10_ [http://10.0.60.33:8000/sap/bpc/] _ [SHELLTEST] _ [Planning]"，" KALININV_EXT"，"密码" fpm.RefreshActiveSheet objwb.Save objwb.Close SaveChanges = False obj.Quit
最多设置5个标签!
{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', '推荐 空代码 的问题《从VBScript使用EPM插件API》','https://www.easysap.com/answer/88569/241671.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
经过测试-正常工作！ 这是一个通用版本-将与独立的EPM加载项以及AO中的EPM（使用后期绑定）一起使用：
Dim obj，objwb，epmCOm，fpm 设置obj = CreateObject（" Excel.Application"） 设置objwb = obj.Workbooks.Open（" C：\ Users \ KalininVE \ Desktop \ TestReport.xlsx"） obj.Application.Visible = True 关于错误继续 设置fpm = obj.COMAddIns（" FPMXLClient.Connect"）。Object 如果Err.Number <> 0然后 设置epmCOm = obj.COMAddIns（" SapExcelAddIn"）。Object 设置fpm = epmCOm.GetPlugin（" com.sap.epm.FPMXLClient"） 万一 出错时转到0 fpm.Connect" _FPM_BPCNW10_ [http://10.0.60.33:8000/sap/bpc/] _ [SHELLTEST] _ [Planning]"，" KALININV_EXT"，"密码" fpm.RefreshActiveSheet objwb.Save objwb.Close SaveChanges = False obj.Quit
一周热门 更多>