Saving reports as spreadsheets

[anuragvijay]

Can BO full-client reports be saved as spreadsheets just like Webi reports? I don't see this feature in the ‘Save As’ dialog box, so I assume it cannot be done. Just need a confirmation on this and whether any indirect method exists to achieve this.

Thanks

 

[skrandel]

In V5, you can save as txt and then open in Excel.

In V6, reports can be saved as Excel files.

Steve Krandel
Westbay Solutions

http://www.westbaysolutions.com

 

[vumansky]

Another option in v5. is to use SaveAsHTML and give the file .xls extension. It would preserve formating.

 

[anuragvijay]

Hi Vumansky

This does not seem to work for me. I'm using BO 5.1.6. When i save as xls and later try to open it in Excel i get an error "file format is not valid". Any clue?!

 

[lichtentrophe]

In version 5.1.6 reports cannot be saved directly in excel. The options you have is to copy the contents of your report into excell or to export the raw data to excell via the data manager.

 

[skrandel]

You should save as HTML. The go look at the folder BO creates. One of the HTML files will be your report. Open the HTML file from within Excel and it works fine. DO NOT CHANGE IT'S EXTENSTION TO XLS.

Another option is to Save As Text. You will lose formatting (colors and number formats), BUT everything will still line up correctly.

Keep in mind that charts are not exportable to Excel until V6.

Steve Krandel
Westbay Solutions

http://www.westbaysolutions.com

 

[xlbo]

Another option you could try is to automate the copy process via code. Here's a little sub I use to get a report from B/O into excel - code is held in excel:

Sub GetBOData()
Dim BoApp As busobj.Application, BODoc As busobj.Document, BORep As busobj.Report
Set BoApp = CreateObject("BusinessObjects.application&quot
With BoApp
.LoginAs "userID", "password"
.Visible = True
.Documents.Open ("Full path\reportname.rep&quot
With .ActiveDocument
.Refresh
i = 1
For Each rpt In .Reports
rpt.Activate
BoApp.CmdBars(2).Controls("&Edit&quot.Controls(20).Execute
Sheets(i).Range("A1&quot.PasteSpecial Paste:=xlPasteValues
i = i + 1
Next
End With
End With

Set BoApp = Nothing
Set BODoc = Nothing
End Sub

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244