BO BI 4.2 SP5 Webi - Отчет OpenDocument - Загрузка таблицы в Excel/ Доступ через VBA
Я хотел бы знать, есть ли способ загрузить отчет BODI OpenDocument через VBA с помощью Office Access или Excel.
Прямо сейчас я могу войти в BO Webi и открыть нужный отчет Webi OpenDocument со следующим кодом VBA:
Авторизоваться:
Private Sub btnReportBO_Click()
WebBrowser.navigate "https://xxxxxx.com/BOE/OpenDocument/opendoc/openDocument.jsp?sIDType=CUID&iDocID=FjkfNFtyyg4ABJEBAABnyuNvAFBWgRcs"
End Sub
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, url As Variant)
With WebBrowser
If .Document.title = "OpenDocument" Then
.Document.all("_id0:logon:USERNAME").Value = strUsername
.Document.all("_id0:logon:PASSWORD").Value = strPassword
Do: Loop Until .Document.ReadyState = "complete"
.Document.all("_id0:logon:logonButton").Click
End If
End With
End Sub
После этого как можно скачать таблицу? Я терплю неудачу, потому что я не знаю, как получить доступ к Frame или iFrame, содержащему таблицу. Если я загружаю исходный код HTML с помощью щелчка правой кнопкой мыши - Просмотреть исходный код на рабочем столе, я могу экспортировать таблицу в Access со следующим кодом:
With WebBrowser
If .Document.title = "" Then
Dim x As Long
Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("tbl_ReportBO")
If .Document.getElementsByTagName("table")(0).Rows(0).Cells(0).innerText = "Route" Then
With .Document.getElementsByTagName("table")(0)
For x = 1 To .Document.getElementsByTagName("TABLE")(0).Rows.Length - 1
RS.AddNew
RS("Route") = .Rows(x).Cells(0).innerText
RS.Update
Next x
End With
End If
End If
End With
Как я могу получить доступ к отчету / таблице в пределах рамки документа через VBA? Или как узнать имя фрейма или iFrame? Или Как я могу загрузить весь исходный код в текстовый файл?