Same Formating of qlikview pivot table in Excel

[Anonymous]

Hi Everyone,

Here in qlikview I want to send a pivot table in Excel but in excel its not showing the same formatting  as in qlikview .

I'm attaching image and qvw file . Please anyone give me some solution that  we can fixed the Issue.

[ashfaq_haseeb]

Hi,

I cannot access the file its corrupted.

But below macro will do the job.

sub Export 
    set XLApp = CreateObject("Excel.Application") ' Define Object  
        XLApp.Visible = True 'Visible set as true  
        set XLDoc = XLApp.Workbooks.Add 'Open new workbook      
        set table = ActiveDocument.GetSheetObject("TB04")  
        rem set table = ActiveDocument.GetSheetObject("MB01")  
         
    set XLSheet = XLDoc.Worksheets(1) 'Select sheet where data should be pasted  
        table.CopyTableToClipboard true 'Copy data to Clipboard 
        XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell 
     
end sub 

Change the object ID's accordingly.

Regards

ASHFAQ

[Anonymous]

Hi Ashfaq,

Thanks for the reply but here I'm not able to run this code . when we put the object id of pivot table in  place of TB04 then what we should put the id object in place of MB01.

[ashfaq_haseeb]

Hi

Please have a look at the attached application

Also make sure you give system access to Macro in module as per the attached image.

Hope it helps

Regards

ASHFAQ

[Anonymous]

Thank you so much ashfaq now its working...

[ashfaq_haseeb]

Hi,

If it works, Please close the thread by selecting appropriate answer.

Regards

ASHFAQ

[Athira_K]

Hello,
This is working fine for my requirement also.Can you please help me with saving the file?
Thank you

[Athira_K]

Thank you for helping me out.