4 Replies Latest reply: Jan 4, 2017 3:24 PM by Jahncer Santana RSS

    Export to Excel

    Jahncer Santana

      Hi, I am looking for a way to export all charts to multiple excel sheets as so:

       

      Sheet 1: Charts (images)
      Sheet 2: Chart Values
      Sheet 3: Raw Data for selected period.

       

      How would I be able to do this?

       

      Thanks.

        • Re: Export to Excel
          Mark Ritter

          If you right click on a chart you can choose Export Data.  That will export that data to excel.

           

          You would have to do this for each object on your sheet.

            • Re: Export to Excel
              Jahncer Santana

              Yes, I have been doing it manually, but I am looking for an automatic way of exporting all to excel

                • Re: Export to Excel
                  Mark Ritter

                  Unless someone has come up with an extension in Qlik Branch then I don't believe there is a way to do what you want.

                   

                  You can only export the entire sheet to PDF.

                    • Re: Export to Excel
                      Jahncer Santana

                      You can actually build a macro to loop through the charts and export, I just don't know enough to build it myself.

                       

                      Here is an example of one:

                       

                       

                       

                      sub launchXL

                      set oXL=CreateObject("Excel.Application")

                      oXL.visible=True

                      oXL.Workbooks.Add

                      aSheetObj=Array("CH05","CH01")

                      for i=0 to UBound(aSheetObj)

                      oXL.Sheets.Add  

                      Set oSH = oXL.ActiveSheet

                      oSH.Range("A1").Select   

                      Set obj = ActiveDocument.GetSheetObject(aSheetObj(i))

                      obj.CopyTableToClipboard True

                      oSH.Paste

                      sCaption=obj.GetCaption.Name.v

                      set obj=Nothing    

                      oSH.Rows("1:1").Select

                      oXL.Selection.Font.Bold = True      

                      oSH.Cells.Select

                      oXL.Selection.Columns.AutoFit

                      oSH.Range("A1").Select    

                      oSH.Name=left(sCaption,30)  

                      set oSH=Nothing 

                      next

                      set oXL=Nothing

                      end sub