topic Create Excel Macro in QlikView

Create Excel Macro

Anonymous — Wed, 25 Nov 2020 16:16:04 GMT

Hi Qlikview experts!!

I'm having a trouble with a macro that creates an Excel file. The problem is that it works in my desktop using Qlikview (11.20.12664.0 SR9 64 bit) and Excel 2013 64 bits, works in a server that the client have to do some tests Qlikview (11.20.13206.0 SR13 64 bit) and Excel Plus 2010 32 bits but it doesn't work in the production server Qlikview (11.20.13206.0 SR13 64 bit)

and Excel Plus 2013 32 bits .

I already checked in User Preferences Allways Override Security options and in the macro have Requested Module Security - System Access and Current Local Security - Allow System Access.

This is the macro:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Create_Excel

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = False

XLApp.DisplayAlerts = False

set XLDoc = XLApp.Workbooks.Add

XLDoc.Sheets(1).name = "Export"

set XLSheet = XLDoc.Worksheets(1)

set MyTable = ActiveDocument.GetSheetObject("TB01")

set XLSheet = XLDoc.Worksheets(1)

XLSheet.Name="PlayersInfo"

Mytable.CopyTableToClipboard true 'Copy data to Clipboard

XLSheet.Paste XLSheet.Range("A1")

XLSheet.Range("1:1").Delete

XLDoc.SaveAs "E:\QVModels\4_XLS\PlayerSummary.xls"

XLApp.Quit 'finish

Set XLApp = Nothing

Set Table = Nothing

ActiveDocument.Save

Application.Quit

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Doesn't give me and error, just doesn't work. It stops in set XLDoc = XLApp.Workbooks.Add

Any idea? Do I need a plugin or something?

Thanks!!

Re: Create Excel Macro

sasiparupudi1 — Fri, 17 Mar 2017 19:21:50 GMT

Try setting

XLApp.Visible = True

XLApp.DisplayAlerts = True

hth

Sas

Re: Create Excel Macro

sasiparupudi1 — Thu, 23 Mar 2017 10:30:16 GMT

Try

Sub Create_Excel

Set XLApp = CreateObject("Excel.Application")

XLApp.Visible = True

XLApp.DisplayAlerts = False

Set XLDoc = XLApp.Workbooks.Add

XLDoc.Sheets(1).name ="PlayersInfo"

Set XLSheet = XLDoc.Worksheets(1)

Set MyTable = ActiveDocument.GetSheetObject("TB01")

Mytable.CopyTableToClipboard true 'Copy data to Clipboard

XLSheet.Paste XLSheet.Range("A1")

XLSheet.Range("1:1").Delete

XLDoc.SaveAs "C:\aps\PlayerSummary.xlsx"

XLApp.Quit 'finish

Set XLApp = Nothing

Set Table = Nothing

End Sub

Re: Create Excel Macro

Anonymous — Fri, 24 Mar 2017 17:11:00 GMT

Hi Sasidhar!!

I tried what you suggested but it didn't work I got the same, no error error just doesn't work.

Thanks!!!

Re: Create Excel Macro

Anonymous — Fri, 24 Mar 2017 17:27:38 GMT

Hi Sasidhar!!

Thanks a lot, this works very good. I can run my macro now.

Thanks!!