topic Re: Macro not working in QlikView

Macro not working

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

hello Developers

I have macros that exports chars to word and excel. 3 Days back it worked fine,but today when i tried the macro is opening excel and word but its exporting script to that word and excel. Any help please.

Thanks

Anil

Re: Macro not working

santiago_respane — Tue, 08 Nov 2016 19:55:45 GMT

Hi Anil,

please attach macro code or sample app in order to help you finding the solution.

Kind regards,

Re: Macro not working

MK9885 — Tue, 08 Nov 2016 19:55:55 GMT

Can you post the Macro you using?

Re: Macro not working

dandaanilreddy — Tue, 08 Nov 2016 19:57:30 GMT

Please see the below script:

Sub Test

Set XWord = CreateObject("Word.Application")

XWord.Visible=true

Set DocWord = XWord.Documents.add()

With XWord.Selection

'.InsertBefore "Titulo"&chr(13)

'.Font.Bold = True

'.Font.Color = RGB(243,58,160)

'.Font.Size = 12

'.Font.Name = "Georgia"

.Collapse wdCollapseEnd

End With

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH822")

image.CopyBitmapToClipboard

XWord.Selection.Paste

With XWord.Selection

XWord.Selection.Collapse wdCollapseEnd

XWord.Selection.InsertBefore chr(13)

' .InsertBefore "My Chart"&chr(13)

'.Font.Bold = True

'.Font.Color = RGB(243,58,160)

'.Font.Size = 15

'.Font.Name = "Georgia"

.Collapse wdCollapseEnd

end with

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH824")

image.CopyBitmapToClipboard

XWord.Selection.Paste

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH827")

image.CopyBitmapToClipboard

XWord.Selection.Paste

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH829")

image.CopyBitmapToClipboard

XWord.Selection.Paste

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH831")

image.CopyBitmapToClipboard

XWord.Selection.Paste

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH832")

image.CopyBitmapToClipboard

XWord.Selection.Paste

ActiveDocument.ClearCache

ActiveDocument.GetApplication.WaitForIdle

set image = ActiveDocument.GetSheetObject("CH833")

image.CopyBitmapToClipboard

XWord.Selection.Paste

end sub

Re: Macro not working

MK9885 — Tue, 08 Nov 2016 20:23:40 GMT

vbscript - Error : ActiveX component can't create object: 'Word.Application' in Windows XP - Stack Overflow

Re: Macro not working

santiago_respane — Tue, 08 Nov 2016 20:37:22 GMT

Hi mate,

i've made a little adjust in the macro and it works perfectly in one of my applications, in my case it only exported the two first objects, this is what i did:

Changing ids of objects in order for the macro work in my app
add this code between every object exported

With XWord.Selection

.InsertBefore chr(13)

.Collapse wdCollapseEnd

end with

Please let me know if this helps.

Kind regards,

Re: Macro not working

dandaanilreddy — Tue, 08 Nov 2016 21:00:47 GMT

Hi Santiago

Thanks for the reply. I am not sure what's happening in my application. It's working now without any change. Do you have any idea why the macro's are not working some time?

Thanks

Anil

Re: Macro not working

santiago_respane — Thu, 10 Nov 2016 15:11:39 GMT

Hi Anil,

it may depend on a lot of things but when this kind of strange behaviour in QV starts to appear is when i have my pc on for a lot of days wothout any reboot and QV starts acting crazy.

Besides that, without further investigation i dont know what could be the cuase of your issue.

Kind regards,