topic Unable to run a macro in QlikView https://community.qlik.com/t5/QlikView/Unable-to-run-a-macro/m-p/982022#M967978 <HTML><HEAD></HEAD><BODY><P>Hi everyone, I was currently working on a project which required all charts and tables to be extracted to a single excel file with charts on first page and tables on the next. Before I start for the bigger fish I tried with a trial version of a simpler script. The script is as follows:- Function ExportCharts()&nbsp; Set xlApp = CreateObject("Excel.Application")&nbsp; xlApp.Visible = true&nbsp; Set xlDoc = xlApp.Workbooks.Add 'open new workbook&nbsp;&nbsp;&nbsp; nSheetsCount = 0&nbsp;&nbsp;&nbsp; CALL RemoveDefaultSheet(xlDoc)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nSheetsCount = xlDoc.Sheets.Count&nbsp;&nbsp;&nbsp; xlDoc.Sheets(nSheetsCount).Select&nbsp;&nbsp;&nbsp; Set xlSheet = xlDoc.Sheets(nSheetsCount)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CALL ExportRevenueWidgets(xlDoc,xlSheet)&nbsp; End Function&nbsp; 'Call Export Widgets By Sheet&nbsp; Function ExportRevenueWidgets(xlDoc,xlSheet)&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH03", "A")&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH07", "D")&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CHO8", "B")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH09", "C")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH13", "E")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH07", "F") End Function&nbsp;&nbsp;&nbsp; 'Export Widgets&nbsp; Function Export(xlDoc, xlSheet,widgetID, columnStart)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nRow = xlSheet.UsedRange.Rows.Count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nRow = 1&nbsp;&nbsp;&nbsp; Set SheetObj = ActiveDocument.GetSheetObject(widgetID)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Copy the chart object to clipboard&nbsp;&nbsp;&nbsp; SheetObj.CopyTableToClipboard true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Paste the chart object in Excel file&nbsp;&nbsp;&nbsp; xlSheet.Paste xlSheet.Range(columnStart&amp;nRow)&nbsp; End Function&nbsp;&nbsp;&nbsp; 'Remove Default Sheets from Excel Files&nbsp; Sub RemoveDefaultSheet(xlDoc)&nbsp;&nbsp;&nbsp; Do&nbsp;&nbsp;&nbsp; nSheetsCount = xlDoc.Sheets.Count&nbsp;&nbsp;&nbsp; If nSheetsCount = 1 then&nbsp;&nbsp;&nbsp; Exit Do&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp; xlDoc.Sheets(nSheetsCount).Select&nbsp;&nbsp;&nbsp; xlDoc.ActiveSheet.Delete&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp; Loop&nbsp; End Sub&nbsp; If someone could point my mistake it would be fantastic. Thanks in advance.</P></BODY></HTML> Fri, 18 Sep 2015 13:12:28 GMT snehamahaveer 2015-09-18T13:12:28Z Unable to run a macro https://community.qlik.com/t5/QlikView/Unable-to-run-a-macro/m-p/982022#M967978 <HTML><HEAD></HEAD><BODY><P>Hi everyone, I was currently working on a project which required all charts and tables to be extracted to a single excel file with charts on first page and tables on the next. Before I start for the bigger fish I tried with a trial version of a simpler script. The script is as follows:- Function ExportCharts()&nbsp; Set xlApp = CreateObject("Excel.Application")&nbsp; xlApp.Visible = true&nbsp; Set xlDoc = xlApp.Workbooks.Add 'open new workbook&nbsp;&nbsp;&nbsp; nSheetsCount = 0&nbsp;&nbsp;&nbsp; CALL RemoveDefaultSheet(xlDoc)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nSheetsCount = xlDoc.Sheets.Count&nbsp;&nbsp;&nbsp; xlDoc.Sheets(nSheetsCount).Select&nbsp;&nbsp;&nbsp; Set xlSheet = xlDoc.Sheets(nSheetsCount)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CALL ExportRevenueWidgets(xlDoc,xlSheet)&nbsp; End Function&nbsp; 'Call Export Widgets By Sheet&nbsp; Function ExportRevenueWidgets(xlDoc,xlSheet)&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH03", "A")&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH07", "D")&nbsp;&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CHO8", "B")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH09", "C")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH13", "E")&nbsp;&nbsp; CALL Export(xlDoc,xlSheet,"CH07", "F") End Function&nbsp;&nbsp;&nbsp; 'Export Widgets&nbsp; Function Export(xlDoc, xlSheet,widgetID, columnStart)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nRow = xlSheet.UsedRange.Rows.Count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; nRow = 1&nbsp;&nbsp;&nbsp; Set SheetObj = ActiveDocument.GetSheetObject(widgetID)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Copy the chart object to clipboard&nbsp;&nbsp;&nbsp; SheetObj.CopyTableToClipboard true&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Paste the chart object in Excel file&nbsp;&nbsp;&nbsp; xlSheet.Paste xlSheet.Range(columnStart&amp;nRow)&nbsp; End Function&nbsp;&nbsp;&nbsp; 'Remove Default Sheets from Excel Files&nbsp; Sub RemoveDefaultSheet(xlDoc)&nbsp;&nbsp;&nbsp; Do&nbsp;&nbsp;&nbsp; nSheetsCount = xlDoc.Sheets.Count&nbsp;&nbsp;&nbsp; If nSheetsCount = 1 then&nbsp;&nbsp;&nbsp; Exit Do&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp; xlDoc.Sheets(nSheetsCount).Select&nbsp;&nbsp;&nbsp; xlDoc.ActiveSheet.Delete&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp; Loop&nbsp; End Sub&nbsp; If someone could point my mistake it would be fantastic. Thanks in advance.</P></BODY></HTML> Fri, 18 Sep 2015 13:12:28 GMT https://community.qlik.com/t5/QlikView/Unable-to-run-a-macro/m-p/982022#M967978 snehamahaveer 2015-09-18T13:12:28Z Re: Unable to run a macro https://community.qlik.com/t5/QlikView/Unable-to-run-a-macro/m-p/982023#M967979 <HTML><HEAD></HEAD><BODY><P>Have a look here: <A href="https://community.qlik.com/docs/DOC-4841">Loop Charts and Field Values - Excel Export Macro</A> and here: <A href="https://community.qlik.com/docs/DOC-4416">VB Macro to Loop Field (Dynamic) and Export Chart (Dynamic) to Excel &amp;amp; Name Sheets by Field Value</A>.</P><P></P><P>- Marcus</P></BODY></HTML> Fri, 18 Sep 2015 13:15:30 GMT https://community.qlik.com/t5/QlikView/Unable-to-run-a-macro/m-p/982023#M967979 marcus_sommer 2015-09-18T13:15:30Z