2020-09-12 02:40发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）大家好！ 我需要用几句话... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
大家好！
我需要用几句话说，我想通过宏Excel（VBA）将数据从Busines Object导出到excel文档。 或（ VB.net ）模块。
步骤：
-打开特定于请求的BO
-刷新数据（日期初始时间，日期结束时间，模型）
-将结果导出到另一个Excel文档中。
任何人都有允许使用此功能的代码吗？
谢谢。
最后，我找到了适用于我的proyect的代码VBA。 我分享它..也许有人在为他服务。
感谢大家的答复！
-MT
子Export_REPtoXLS（） 昏暗的appBO作为busobj.Application 设置appBO = CreateObject（" BusinessObjects.Application.12"） Application.StatusBar ="登录会话业务对象..." 在错误转到退出时： appBO.Logon" XXXX"，" XXXX"，" @ box"，" LABC"，False，False appBO.Interactive =真 appBO.Visible = False 'appBO.Window.State = boMinimized Application.StatusBar ="打开Requette.rep ..." 设置docBO = appBO.Documents.Open（" I：\ XXX \"＆" Requette.rep"） docBO.Reports（" SHEET"）。激活 docBO.Variables.Item（" SINCE："）。Value =" 19/10/2018 06:00:00" docBO.Variables.Item（" UNTIL："）。Value =" 19/10/2018 23:00:00" Application.StatusBar ="刷新Requette.rep ..." appBO.Interactive =假 docBO.Refresh appBO.ActiveDocument.SaveAs（" I：\ XXX \"＆" TEST"＆" .xls"） Application.StatusBar =" TEST.xls文件已成功创建！" appBO.Interactive =真 appBO.Visible = True appBO.ActiveDocument.Save 'appBO.ActiveDocument.Close'或 appBO.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', '推荐 不知归路 的问题《如何通过Excel VBA/VB.net导出数据业务对象？》','https://www.easysap.com/answer/71817/200227.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
最后，我找到了适用于我的proyect的代码VBA。 我分享它..也许有人在为他服务。
感谢大家的答复！
-MT
一周热门 更多>