topic Macro export to Excel in QlikView

Macro export to Excel

Fri, 04 Mar 2011 12:42:01 GMT

Hi!

I created a macro for exporting some tables to excel. However if I do it manually (copy an image and special paste (as bitmap) in excel) the picture is much clearer than if I export it via macro. Is it possible to export image to excel and paste it there as bitmap?

Thank you,

Macro export to Excel

Fri, 04 Mar 2011 12:45:42 GMT

Hi,

u can try this one, I think this what u expecting

sub test

set XLApp = CreateObject("Excel.Application") ' Define Object

XLApp.Visible = True 'Visible set as true

set XLDoc = XLApp.Workbooks.Add 'Open new workbook

set XLSheet = XLDoc.Worksheets(1) 'Select sheet where data should be pasted

ActiveDocument.ActiveSheet.CopyBitmapToClipboard

XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell

end sub

Thanks & Regards

Macro export to Excel

amars — Fri, 04 Mar 2011 12:56:22 GMT

Hi,

You can get lot of post's for export to excel or Image. Check this post

http://community.qlik.com/forums/t/41682.aspx

Thanks.

Macro export to Excel

Fri, 04 Mar 2011 14:24:15 GMT

Hi,

this is what I have now. However if I paste image manually - in qlikview select copy as image and then in excel select pastespecial (bitmap), the image is much clearer.

BR,

Macro export to Excel

Thu, 17 Mar 2011 11:21:23 GMT

Hi,

Please check the below url, you might get what u want

http://www.qlikblog.at/971/qliktip-32-exporting-multiple-objects-single-excel-document/

Thanks & Regards

Macro export to Excel

Fri, 18 Mar 2011 05:36:25 GMT

Thank you. But the result is the same. After using the macro I get the image on the left. If I use manual solution and copy image and in excel paste as an image I get much clearer image on the right.

Regards,

Macro export to Excel

Fri, 18 Mar 2011 05:50:03 GMT

...and attachment for images.

BR,

Re: Macro export to Excel

Thu, 09 Oct 2014 11:16:13 GMT

Hi.

I know this is an old post, but there does not seem to be a solution here.. (Or anywhere on the community) So if someone else looks here..

This method works, crystal clear images from Qlikview to Excel.

The resultant Excel file (tested in .xlsx) is smaller in size than standard paste

SUB SendExcel

set XLApp = CreateObject("Excel.Application") ' Define Object

XLApp.Visible = True 'False to keep excel not visible

set XLDoc = XLApp.Workbooks.Add 'Open new workbook

Set obj = ActiveDocument.GetSheetObject("CH01")

obj.CopyBitmapToClipboard()

XLDoc.Sheets(1).Range("B8").Select

With XLDoc.Sheets(1)

.Range("B8").PasteSpecial _

Operation=xlPasteSpecialOperationAdd

End With

End Sub