Macro to download excel file from the URL

[Abhishekghorpade]

Hi,

I want to download the data in excel from the below link (inside the link it has 2 more steps) and save it in Birt folder “C:\Users\E5554593\Desktop\A5554593\Birt report”

Url: http://147.249.55.189/birt-viewer/
1^st step :- Click on “RealTime SLA - Role/Business Unit”
2^nd step :- Click on “BPO_DVW”

Thank you

 

[Worf]

If you are on a company computer, the firewall may block it. Here at work I cannot see it either, only at home.

 

[Abhishekghorpade]

Mail ID is not working. I am getting error message as " Address not found"

 

[Macropod]

Cross-posted at: https://www.excelforum.com/excel-pr...acro-to-download-excel-file-from-the-url.html

Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

 

[Worf]

I received your email.
When you right click the BPO_DVW button, do you get the inspect element option? I need a screen shot of the DOM code, as I posted before.

 

[Abhishekghorpade]

No Right click option wont work on BPO_DVW button. When i right click on RealTime SLA - Role/Business Unit i will get inspect element. I sent mail with that screen shot

 

[Worf]

• I doubt we will be able to click that button with VBA.
• Anyway, please run the test code below and report the result. It produces a list of all page elements and counts the number of buttons in it. My sample page has more than two hundred buttons…

Sub Btns()
Dim ie As Object, elems, ws As Worksheet, i%, arr()
Set ws = Sheets("summary")                          ' list is written here
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = 1
ie.navigate "https://www.youtube.com/gaming"        ' desired page here
While ie.busy
    DoEvents
Wend
Set elems = ie.Document.getElementsByTagName("*")   ' all elements
ws.[a:b].ClearContents
ReDim arr(1 To elems.Length, 1 To 2)
On Error Resume Next
For i = 1 To elems.Length
    arr(i, 1) = elems(i).Name
    arr(i, 2) = elems(i).Type                       ' is it a button?
Next
On Error GoTo 0
ws.[a1].Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
MsgBox WorksheetFunction.CountIf([b:b], "button") & " buttons were found."
End Sub

 

[Abhishekghorpade]

I am getting Subscript out of range error message.

I changed only the link. Do i need to change anything

 

[Worf]

You also need to change the sheet name to an existing one. What line throws the error?

 

[Abhishekghorpade]

Application is opening now. But still getting the error "Method 'document' of object '|WebBrowser2' failed.

Not showing any yellow line on coding

 

[Worf]

• From your last email, the business role field seems to be required.
• Taking a step back, I do not think the button click method will work here. I suggest you investigate the alternative mentioned below.

As stated earlier BIRT supports exporting to Excel. The BIRT Excel emitter creates a Microsoft Office XML XLS document that can be opened in Microsoft Office 2003 or greater. To use this feature either add the __format=xls parameter to the BIRT viewer URL or use the AJAX export button.

1down votefavorite
1​

​

I have birt-viewer running on apache tomcat. I thought there might be an option to use a URL parameter that will directly export the report to XLS format and send it to the user.
I couldn't find a way to do that. Is it possible?
Thanks!
excelurlbirt
shareimprove this question
asked Nov 21 '10 at 14:44

Ben
4,7051876142
add a comment
1 Answer

activeoldestvotes

up vote5down voteaccepted​

​

Got it. add "&__format=xls" to url.