topic Re: Export to Excel 3 Tables into One Sheet in QlikView

Export to Excel 3 Tables into One Sheet

roee1983 — Tue, 25 Nov 2014 20:14:39 GMT

Hi all,

I have these 3 different tables Pivot tables.

I want to create an option(I think it will be with a macro) to export them to excel file to one sheet with a space of a line

any suggestions?

Thanks

Roee

ashwanin — Wed, 26 Nov 2014 09:20:22 GMT

Hi,

Follow the thread

ashwanin — Wed, 26 Nov 2014 09:22:25 GMT

ashfaq_haseeb — Wed, 26 Nov 2014 09:26:22 GMT

Check this

Regards

ASHFAQ

Anonymous — Wed, 26 Nov 2014 09:37:57 GMT

try the below macro

just change TB05 and TB04 to your TableBox ID's or any Chart ID's also if you want to add just add it with "," and chartid with "

sub new_to_Export

Set Obj_XLApp = CreateObject ("Excel.Application")

Obj_XLApp.Visible = true

Obj_XLApp.DisplayAlerts = true

set Obj_XLTemplate = Obj_XLApp.Workbooks.Add

Obj_XLTemplate.worksheets ("sheet1").range ("A1").select

Obj_XLTemplate.worksheets ("sheet1").range ("A1").value="Title............."

for each chartID in array("TB05","TB04") 'change them accordingly to your chat ID's'

lastrow=Obj_XLTemplate.worksheets ("sheet1").Range ("A65536").End (-4162).Row

Set objSource = ActiveDocument.GetSheetObject (chartID)

Obj_XLApp.cutcopymode = false

Call objSource.CopyTableToClipboard (True)

Obj_XLTemplate.worksheets ("sheet1").range ("A"& lastrow + 2).select

Obj_XLTemplate.worksheets ("sheet1").paste

end sub

Regards

Harsha

roee1983 — Wed, 26 Nov 2014 12:11:22 GMT

Thank u all