topic Export chart title in QlikView

Export chart title

shruthibk — Wed, 25 Nov 2020 16:16:04 GMT

Hi,

1)how can i export chart title name,there are many charts in three sheets how can i export chart title name ,i tried changing object id but it is not working in ajax client also i tried some macros but they are throwing some errors.

2) How to export chart with filter selection at the top,in excel file filter selection should show at the top.

Thanks,

shruthi

Re: Export chart title

bindu_apte — Mon, 11 Jul 2016 04:16:34 GMT

Hi Shruthi,

Try this.

sub ExportExcel()

'create Excell

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = true

Set xlDoc = xlApp.Workbooks.Add()

Set xlSheet = xlDoc.Worksheets.Add

Set SheetObj = ActiveDocument.GetSheetObject("CH01")

'copy Label

chartCaption = SheetObj.GetCaption.Name.v

xlSheet.Range("A1") = chartCaption

'copy table content

SheetObj.CopyTableToClipboard true

xlSheet.Range("A2").PasteSpecial Paste = xlPasteValues

End sub

Re: Export chart title

avinashelite — Mon, 11 Jul 2016 05:17:35 GMT

Check this threads too

Re: How to export to Excel include Title Caption?

How to Export a single Chart to Excel based on User Selection?

Re: Export chart title

shruthibk — Mon, 11 Jul 2016 14:47:38 GMT

i tried all the macros they are throwing error like this ActiveX component can't create object: 'Excel.Application'

Re: Export chart title

shruthibk — Mon, 11 Jul 2016 14:47:45 GMT

i tried all the macros they are throwing error like this ActiveX component can't create object: 'Excel.Application'

Re: Export chart title

bindu_apte — Tue, 12 Jul 2016 03:57:44 GMT

Hi Shruthi,

Can you share the macro which you are using?

Re: Export chart title

avinashelite — Tue, 12 Jul 2016 05:50:04 GMT

You need to check the allow system access in the Macro edit window . Press Ctrl+M and in the left hand side you will see the access part . Select allow system access , Hope this helps you

Re: Export chart title

susovan — Tue, 12 Jul 2016 06:27:25 GMT

Hi shruthi,

Try this process and also check the attachment,

Please change the path.

sub ExcelFile

strDate = CDate(Date)

strDay = DatePart("d", strDate)

strMonth = DatePart("m", strDate)

strYear = DatePart("yyyy", strDate)

If strDay < 10 Then

strDay = "0" & strDay

End If

If strMonth < 10 Then

strMonth = "0" & strMonth

End If

GetFormattedDate = strMonth & "-" & strDay & "-" & strYear

Path = "D:\SUSOVAN_WORK\@_Qlik_Tab Application\"

FileName = "Sales_" & GetFormattedDate & ".xlsx"

Set XLApp = CreateObject("Excel.Application")

XLApp.Visible = True

set XLDoc = XLApp.Workbooks.Add

ActiveDocument.GetSheetObject("EXPORT").CopyTableToClipboard true

XLDoc.Sheets(1).Paste()

XLDoc.Sheets(1).Columns("A:D").EntireColumn.AutoFit

XLDoc.Sheets(1).Columns("A:A").ColumnWidth = 15.57

XLDoc.Sheets(1).Columns("B:B").ColumnWidth = 12.43

XLDoc.Sheets(1).Columns("C:C").ColumnWidth = 15.29

XLDoc.Sheets(1).Columns("D:D").ColumnWidth = 15.57

XLDoc.Sheets(1).Name = "CH01"

XLDoc.SaveAs Path & FileName

End Sub