|
@@ -0,0 +1,106 @@
|
|
|
+Dim objApp As Object
|
|
|
+Dim objRep As Object
|
|
|
+Dim folder as String
|
|
|
+Dim publish As String
|
|
|
+Dim exportFormat As String
|
|
|
+
|
|
|
+Sub Main ()
|
|
|
+ Rem On Error Resume Next
|
|
|
+ Set objApp = CreateObject("CognosPowerPlay.Application")
|
|
|
+ rem folder = "C:\GAPS\Portal\System\Report"
|
|
|
+ rem exportFormat = "pdf"
|
|
|
+ rem publish = "C:\GAPS\Portal\daten"
|
|
|
+
|
|
|
+ folder = GetField(Command, 1, ",")
|
|
|
+ exportFormat = GetField(Command, 2, ",")
|
|
|
+ publish = GetField(Command, 3, ",")
|
|
|
+
|
|
|
+ Dim filename as String
|
|
|
+ Dim exportFile as String
|
|
|
+ Dim objPDF as Object
|
|
|
+
|
|
|
+ filename = Dir(folder + "\")
|
|
|
+
|
|
|
+ Do While filename <> ""
|
|
|
+ If LCase(Right(filename, 4)) = ".ppr" Or LCase(Right(filename, 4)) = ".ppx" Then
|
|
|
+ Set objRep = CreateObject("CognosPowerPlay.Report")
|
|
|
+ objRep.Open(folder + "\" + filename)
|
|
|
+ exportFile = publish + "\" + Left(filename, Len(filename) -4)
|
|
|
+ Select Case exportFormat
|
|
|
+ Case "pdf"
|
|
|
+
|
|
|
+ Set objPDF = objRep.PDFFile(exportFile + "_0.pdf", True)
|
|
|
+ With objPDF
|
|
|
+ .SaveEntireReport = True
|
|
|
+ .AxisOnAllPages = True
|
|
|
+ .ChartTitleOnAllPages = False
|
|
|
+ .IncludeLegend = False
|
|
|
+ End With
|
|
|
+ objPDF.Save
|
|
|
+
|
|
|
+ For i = 1 to objRep.Layers.Count
|
|
|
+ Set objPDF = objRep.PDFFile(exportFile + "_" + i + ".pdf", True)
|
|
|
+ With objPDF
|
|
|
+ .SaveEntireReport = False
|
|
|
+ .SaveAllCharts = False
|
|
|
+ .AxisOnAllPages = True
|
|
|
+ .ChartTitleOnAllPages = False
|
|
|
+ .IncludeLegend = False
|
|
|
+ .SetListOfLayersToSave objRep.Layers.Subset(i, i)
|
|
|
+ .SetListOfRowsToSave objRep.Rows
|
|
|
+ End With
|
|
|
+ objPDF.Save
|
|
|
+ Next
|
|
|
+
|
|
|
+ Case "asc"
|
|
|
+ objRep.SaveAs exportFile, 3
|
|
|
+ Case "xls"
|
|
|
+ objRep.SaveAs exportFile, 4
|
|
|
+ Case "ppx"
|
|
|
+ objRep.SaveAs exportFile, 5
|
|
|
+ Case Else
|
|
|
+ objRep.Publish publish, False, True, True
|
|
|
+ End Select
|
|
|
+ objRep.Close
|
|
|
+ End if
|
|
|
+
|
|
|
+
|
|
|
+ filename = Dir
|
|
|
+ Loop
|
|
|
+ objApp.Quit
|
|
|
+End Sub
|
|
|
+
|
|
|
+
|
|
|
+Sub SaveAsXls (report As String)
|
|
|
+ Dim objPPRep as Object
|
|
|
+ Dim objPPRes as Object
|
|
|
+ Set objPPRep = GetObject(, "CognosPowerPlay.Report")
|
|
|
+ Set objPPRes = objPPRep.Columns.CumPercentOfBase _
|
|
|
+ (objPPRep.Rows.Item("1996"))
|
|
|
+ objPPRep.SaveAs "Mein neuer Bericht"
|
|
|
+ Set objPPRep = Nothing
|
|
|
+End Sub
|
|
|
+
|
|
|
+
|
|
|
+Sub Pdf()
|
|
|
+ Dim objPDF as Object
|
|
|
+ Dim objPPRep as Object
|
|
|
+ Set objPPRep = CreateObject ("CognosPowerPlay.Report")
|
|
|
+ objPPRep.Open( "C:\COGNOS\BEISPIEL.PPR" )
|
|
|
+ objPPRep.visible( TRUE )
|
|
|
+ Set objPDF = objPPRep.PDFFile( "C:\COGNOS\PDFBEISPIEL" , True )
|
|
|
+ With objPDF
|
|
|
+ .SaveEntireReport = False
|
|
|
+ .AxisOnAllPages = True
|
|
|
+ .ChartTitleOnAllPages = False
|
|
|
+ .IncludeLegend = True
|
|
|
+ .SetChartToSave objPPRep.Graphs.Item( 1 )
|
|
|
+ .SetListOfLayersToSave objPPRep.Layers
|
|
|
+ .SetListOfRowsToSave objPPRep.Rows
|
|
|
+ End With
|
|
|
+ objPDF.Save
|
|
|
+ Set objPPRep = Nothing
|
|
|
+ Set objPDF = Nothing
|
|
|
+End Sub
|
|
|
+
|
|
|
+
|