提问
SAP BusinessObjects - Web Intelligence (WebI) excel vba access vba excel

BO BI 4.2 SP5 Webi-通过VBA下载OpenDocument报告

2020-09-16 05:11发布

站内问答 / BO
1381 4 5

点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）您好，我想知道是否可以通过Off...

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

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


您好，我想知道是否可以通过Office Access或Excel通过VBA下载BO Webi报表（OpenDocument）。 现在，我可以登录到BO Webi并使用以下VBA代码打开所需的Webi OpenDocument报告：

[1]： https://i.stack.imgur.com /p30uV.png 

私人子btnReportBO_Click（）
 WebBrowser.navigate" https://xxxxxx.com/BOE/OpenDocument/opendoc/openDocument.jsp?sIDType=CUID&iDocID=FjkfNFtyyg4ABJEBAABnyuNvAFBWgRcs"
 结束子

 私有子WebBrowser_DocumentComplete（ByVal pDisp作为对象，URL作为变体）
 使用WebBrowser
 如果.Document.title =" OpenDocument"，则
 .Document.all（" _ id0：logon：USERNAME"）。Value = strUsername
 .Document.all（" _ id0：logon：PASSWORD"）。Value = strPassword
 做：循环直到.Document.ReadyState =" complete"
 .Document.all（" _ id0：logon：logonButton"）。点击
 万一
 结束于
 结束

那之后如何下载表格？

[2]： https://i.stack.imgur.com /OVe8k.png

我失败了，因为我不知道如何访问包含表的Frame或iFrame。 如果我通过右键单击-将源代码查看到桌面下载HTML源代码，则可以将表导出到Access。

如何通过VBA访问文档框架中的报表/表格？
或者如何将整个源代码下载到文本文件中？

4条回答
Violet凡
2020-09-16 05:55

Hallo Lionel，

使用Web Intelligence REST API代替OpenDocument。

，这是您可以用作基础的快速和肮脏示例代码。 在此示例中，我从文档（id = 7131）导出报告（id = 1）为HTML 

显式选项
 Dim sLogonToken作为字符串
 昏暗的sBaseURL作为字符串

 私人子Worksheet_Activate（）
     sBaseURL =" http：//myHost：6405/biprws"

     登录
     getDocument
     注销
 结束子

 私人子登录（）
     昏暗sURL作为字符串，主体作为字符串，sRes作为字符串
     Dim oHttp作为对象
     Dim json解析为字典
    
     设置oHttp = CreateObject（" MSXML2.XMLHTTP"）
     sURL = sBaseURL＆"/img/v1/logon/long"
     oHttp.Open" POST"，sURL，False
     oHttp.setRequestHeader"内容类型"，"应用程序/json"
     oHttp.setRequestHeader" Accept"，" application/json"

     正文=" {""密码""："" myPassword""，"" auth""：secEnterprise，""用户名""：管理员}"
    
     oHttp.Send Body
     sRes = oHttp.ResponseText
    
     设置jsonParsed = JsonConverter.ParseJson（sRes）
     sLogonToken = jsonParsed（" logontoken"）
    
     设置oHttp = Nothing
 结束子


 私人子注销（）
     昏暗sURL作为字符串，sRes作为字符串
     Dim oHttp作为对象
     Dim json解析为字典
    
     设置oHttp = CreateObject（" MSXML2.XMLHTTP"）
     sURL = sBaseURL和"/img/v1/logoff"
     oHttp.Open" POST"，sURL，False
     oHttp.setRequestHeader"内容类型"，"应用程序/json"
     oHttp.setRequestHeader" Accept"，" application/json"
     oHttp.setRequestHeader" x-sap-logontoken"，sLogonToken
    
     oHttp.Send
     sRes = oHttp.ResponseText
     MsgBox sRes＆"-状态："＆oHttp.Status
    
     设置oHttp = Nothing
 结束子


 私有子getDocument（）
     昏暗的sURL，sRes作为字符串
     Dim oHttp作为对象
        
     设置oHttp = CreateObject（" MSXML2.XMLHTTP"）
     sURL = sBaseURL＆"/img/raylight/v1/documents/7131/reports/1"
     oHttp.Open" GET"，sURL，False
     oHttp.setRequestHeader"内容类型"，"文本/html"
     oHttp.setRequestHeader" Accept"，" text/html"
     oHttp.setRequestHeader" x-sap-logontoken"，sLogonToken

     oHttp.Send
     sRes = oHttp.ResponseText
    
     Sheets（" Document"）。Cells（1，1）= sRes
    
     设置oHttp = Nothing
 结束子

有关更多信息，请参见适用于Web的SAP BusinessObjects RESTful Web服务SDK用户指南 智能和BI语义层

导出报告（"以列表模式导出报告"，"将报告导出为一系列页面"和"导出报告的页面或页面范围"）

导出报告元素

一周热门 更多>