topic chart 'send to excel' with button object in QlikView

chart 'send to excel' with button object

Wed, 07 Sep 2011 20:26:52 GMT

Hello,

I want to mimic the functionality of the 'send to excel' (in the caption of charts) with a button. Is this possible?

Thanks,

Tyler

chart 'send to excel' with button object

Wed, 07 Sep 2011 20:36:00 GMT

If it is of any importance this will also be done using the ajax client

chart 'send to excel' with button object

Wed, 07 Sep 2011 20:58:05 GMT

Hi Tyler ,

try this macro

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open("C:\Folder\Document.xls")
objExcel.Visible = True

Thanks

Meher

chart 'send to excel' with button object

Wed, 07 Sep 2011 21:02:37 GMT

I ran this macro and I get the error: ActiveX component can't create object: 'Excel.Application'

I also do not see how this macro would know what chart I am wanting to send to excel, wouldn't I need to specify the chart ID somewhere?

chart 'send to excel' with button object

Wed, 07 Sep 2011 21:03:13 GMT

If the above one didn't worked for you try this

sub export_summary

set v = ActiveDocument.Variables("QvWorkPath")

set XLApp = CreateObject("Excel.Application")
XLApp.Visible = false
set ExcelDoc = XLApp.Workbooks.Add

ExcelDoc.Sheets(1).activate

set obj1 = ActiveDocument.getsheetobject("CH_Cases")
obj1.CopyTableToClipboard true
ExcelDoc.Sheets(1).cells(1,1).select
ExcelDoc.Sheets(1).paste
ExcelDoc.Sheets(1).Rows("1:1").Font.Bold = True
set obj1 = nothing

"CH_Cases": replace it with your object ID

ExcelDoc.Sheets(1).cells(1,1).select: means that it will start in A1.

Thanks

Meher

chart 'send to excel' with button object

Wed, 07 Sep 2011 21:08:17 GMT

Thanks for the help Merwan, unfortunately I am still getting the same error.

on this line:

set XLApp = CreateObject("Excel.Application")

I get the error:

ActiveX component can't create object: 'Excel.Application'

chart 'send to excel' with button object

Wed, 07 Sep 2011 22:40:07 GMT

Tyler can you check that you Allow System Access for the macro in the Macro module . Otherwise you will not be allowed to create objects.

thanks

Meher

chart 'send to excel' with button object

Thu, 08 Sep 2011 02:36:33 GMT

Dim kost,i

kost = ""

kost = "Sheet1"

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = True

set XLDoc = XLApp.Workbooks.Add

set tbl = ActiveDocument.GetSheetObject("CH1053")

set XLSheet = XLDoc.Worksheets(1)

tbl.CopyTableToClipboard true

XLSheet.Paste XLSheet.Range("A1")

xlsheet.Range("A:A").WrapText = True

XLsheet.Cells.Borders.LineStyle = 1

ActiveDocument.GetApplication.WaitForIdle

ActiveDocument.GetSheetObject("CH1054").CopyBitmapToClipboard

XLDoc.Sheets(kost).Range("A" & 10).Select

XLDoc.Sheets(kost).Paste

end sub

Re: chart 'send to excel' with button object

Thu, 08 Sep 2011 16:24:58 GMT

EDIT: This seems to not work once its accessed through the AccessPoint with the Ajax client. It does work with the IE plugin though and in the developer.

I commented out the last 4 lines because I don't need any images right now; but this works great, thanks!

'ActiveDocument.GetApplication.WaitForIdle

'ActiveDocument.GetSheetObject("CH1054").CopyBitmapToClipboard

'XLDoc.Sheets(kost).Range("A" & 10).Select

'XLDoc.Sheets(kost).Paste