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语义层

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

导出报告元素

我从您的问题中了解到，您想在Excel或MS Access中使用VBA来下载WebI文档/报告或报告的一部分。 以及随附的示例VBA代码可以做到这一点。

您好Ayman，非常感谢您的回答。 不幸的是，我们只能在工作中使用SAP BusinessObjects BI Platform 4.2支持包5（WebI-浏览器）。

不幸的是，RESTFUL API似乎不可用。

但最终还是通过Microsoft HTML对象库实现了。 现在，我可以打开Webi OpenDocument报表，并通过VBA将表导入Office Access。