BusinessObjects Board

mass exporting of deski reports

building reports desktopintelligence
#1

I have a large number of deski reports in a folder that i need to export to the repository. Any quick tool to do this? Using XIr2

olut (BOB member since 2009-08-20)

#2

What about the publication wizard … (start menu BOXIR2 …)

#3

With deski, you can load numerous reports and exports them in mass. If it is not enouch, you can developp it using a piece of SDK

have a look at this post from Marek Chladny

you can download here a little BO application letting you able to convert / export reports. Maybe you could be inspirate by this and developp a macro achieving this.

ps : Bonjour Seb :slight_smile:

bernard timbal :fr: (BOB member since 2003-05-26)

#4

The import wizard wasn’t helping. Will try my hand with the macro

olut (BOB member since 2009-08-20)

#5

I am talking about the publication wizard not the import wizard …

#6

OOps! Sorry!! Will try that one now!!!

olut (BOB member since 2009-08-20)

#7

Hi, the publishing wizard is not allowing .rep file extensions

olut (BOB member since 2009-08-20)

#8

Then try the sdk solution…

    Sub Publish_report()
    
    Dim RptName As String
    Dim doc As Document
    Dim PathName As String
    Dim E_Folder As String
    Dim E_Category As String
    
    PathName = InputBox("Local Directory : ", "Export reports stored in:", "c:\tmp\")
    E_Folder = InputBox("Export to following Repository Folder : ", "Export to following Repository Folder", "Folder Name")
    E_Category = InputBox("Export to following Repository Category: ", "Export to following Repository Category", "category Name")
    
    
       If Right(PathName, 1) <> "\" Then
                PathName = PathName + "\"
            End If
            RptName = Dir(PathName &amp; "*.rep")
    
        Do While RptName <> ""
            RptName = PathName &amp; RptName
            If RptName <> ThisDocument.FullName Then
                Set doc = Application.Documents.Open(RptName, True, False)
    
           Call doc.SaveToEnterprise(E_Folder, boFolder, E_Category, E_Category, False)
                Call doc.Close
            End If
            RptName = Dir
        Loop
    MsgBox "Export successfull !", vbInformation, "Message"
    Exit Sub
    End Sub

NOTICE : Try this first in DEV environment, do not run it directly in production. At your owns risks in all cases :slight_smile:

bernard timbal :fr: (BOB member since 2003-05-26)