Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hello Qlik Developers
After many attempts finally i am able to export charts to excel with the below VB script.Hope this script will help someone
SUB SendExcel
set XLApp = CreateObject("Excel.Application") ' Define Object
XLApp.Visible = True 'Visible set as true
set XLDoc = XLApp.Workbooks.Add 'Open new workbook
Set obj = ActiveDocument.GetSheetObject("CH822")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A1").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH824")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A13").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH827")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A26").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH829")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A42").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH831")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A55").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH832")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A70").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
Set obj = ActiveDocument.GetSheetObject("CH833")
obj.CopyBitmapToClipboard
XLDoc.Sheets(1).Range("A83").Select
XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap
End Sub
Thanks
Anil
Hi,
If you are posting as helpful document, then upload a document in your profile. So that you will get points.
If any issues on this macro let us know.