topic Re: How to export the chart data into excel using Button in QlikView

How to export the chart data into excel using Button

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

Hi Experts,

I have Pivot table Data ,how to Export Excel using Button.

Thankls

Re: How to export the chart data into excel using Button

Colin-Albert — Tue, 09 Jan 2018 13:35:18 GMT

No need for a button, just right-click the chart and select "Send to Excel" or export.

Re: How to export the chart data into excel using Button

el_aprendiz111 — Tue, 09 Jan 2018 19:37:02 GMT

1 Option

MACRO:

Sub Export_Pivot

Set Chart = ActiveDocument.GetSheetObject("CH02")
Set P = Chart.GetProperties
Chart.SendToExcel
End Sub

*** Actions Button

Re: How to export the chart data into excel using Button

Anonymous — Wed, 10 Jan 2018 06:39:56 GMT

I tried it's not working , my script like below

sub Export_Stright

set chart = ActiveDocument.GetsheetObject("CH02");

set p = Chart.GetProperties;

set Chart.SendToExcel;

ENDSUB

TestData1:

LOAD

[Date],

[Client Name],

[ Type],

Replace(Replace(Replace(Replace(Replace(Replace(Replace( Type ,'GRP','Group Meeting'),'CCL','Conference Call'),'DINNER','Dinner'),'LUNCH','Lunch'),'BREAKFAST','Breakfast'),'GBR','Break'),'DINE','Dinner') as [Meeting Type Code],

Title,

Contact,

Status

Resident testData;

Drop table testData;

*** Actions Button

I fallow the above steps in Button..

Re: How to export the chart data into excel using Button

devarasu07 — Wed, 10 Jan 2018 06:49:06 GMT

Hi,

have you tried with attached method?

also take a look on Stephen Solution

QlikTip #32: Exporting multiple QV objects to a single Excel document

Re: How to export the chart data into excel using Button

sasikanth — Wed, 10 Jan 2018 06:53:42 GMT

HI ,

Please try below code

Sub ExcelExport

'Set the path where the excel will be saved

filePath = "D:\Test.xlsx"

'Create the Excel spreadsheet

Set excelFile = CreateObject("Excel.Application")

excelFile.Visible = true

'Create the WorkBook

Set WorkBook = excelFile.WorkBooks.Add

'Create the Sheet

Set Sheet = WorkBook.WorkSheets(1)

'Get the chart we want to export

Set tableToExport = ActiveDocument.GetSheetObject("CH04")

Set chartProperties = tableToExport.GetProperties

tableToExport.CopyTableToClipboard true

'Get the caption

chartCaption = tableToExport.GetCaption.Name.v

'MsgBox chartCaption

'Set the first cell with the caption

Sheet.Range("A1") = chartCaption

'Paste the rest of the chart

Sheet.Paste Sheet.Range("A2")

excelFile.Visible = true

'Save the file and quit excel

WorkBook.SaveAs filePath

WorkBook.Close

excelFile.Quit

'Cleanup

Set WorkBook = nothing

Set excelFile = nothing

End Sub

Re: How to export the chart data into excel using Button

Anonymous — Wed, 10 Jan 2018 09:00:58 GMT

I am getting empty excel sheet. can you guide me how to get into excel

Re: How to export the chart data into excel using Button

Anonymous — Wed, 10 Jan 2018 09:01:27 GMT

i tried below logic

Sub ExcelExport

'Set the path where the excel will be saved

filePath = "\C:\Developer\Qlikview\Data.xlsx"

'Create the Excel spreadsheet

Set excelFile = CreateObject("Excel.Application")

excelFile.Visible = true

'Create the WorkBook

Set WorkBook = excelFile.WorkBooks.Add

'Create the Sheet

Set Sheet = WorkBook.WorkSheets(1)

'Get the chart we want to export

Set tableToExport = ActiveDocument.GetSheetObject("CH02")

Set chartProperties = StrighttableToExport.GetProperties

StrighttableToExport.CopyTableToClipboard true

'Get the caption

chartCaption = tableToExport.GetCaption.Name.v

'MsgBox chartCaption

'Set the first cell with the caption

Sheet.Range("CH02") = chartCaption

'Paste the rest of the chart

Sheet.Paste Sheet.Range("CH02")

excelFile.Visible = true

'Save the file and quit excel

WorkBook.SaveAs filePath

WorkBook.Close

excelFile.Quit

'Cleanup

Set WorkBook = nothing

Set excelFile = nothing

End Sub

Re: How to export the chart data into excel using Button

sasikanth — Wed, 10 Jan 2018 09:26:49 GMT

Code working as expected don`t know what exactly the issue is,

please share you application

Re: How to export the chart data into excel using Button

Anonymous — Wed, 10 Jan 2018 09:35:02 GMT

Hi,

Thank you so much!!!!

It's working good .

Thanks

Re: How to export the chart data into excel using Button

Anonymous — Fri, 23 Feb 2018 08:21:23 GMT

I have written a function and would share with you.

Function Send2Excel(objID, xlSheet, r)
Set tableToExport = ActiveDocument.GetSheetObject(objID)
Set chartProperties = tableToExport.GetProperties
tableToExport.SendToExcel

colCount = tableToExport.GetColumnCount
rowCount = tableToExport.GetRowCount
Set xlApp = GetObject(, "Excel.Application")
xlApp.Visible = True
xlApp.DisplayAlerts = False
Set xlDoc = xlApp.ActiveWorkbook
Set xlSht = xlDoc.Sheets(1)

For i = 1 to rowCount
       For j = 1 to colCount
          xlSheet.Cells(i, j) = xlSht.Cells(i, j)
       Next
Next
xlDoc.Close
End Function

Re: How to export the chart data into excel using Button

Anonymous — Wed, 18 Apr 2018 08:04:20 GMT

Hi Devarasu,

I tried the macro in your attachment its working fine for 1 table but I need to export 3 charts data at a time . can you please help me for exporting these charts.

Regards,

Anusha