topic How to trig reload in Publisher? in QlikView

How to trig reload in Publisher?

andy — Mon, 26 Jan 2026 18:19:17 GMT

Hi folks,

I've a qvw which is reloaded periodically in Publisher. Now I want to change the reloading of this file.

The qvw reads an external .txt file and in the perfect world the reload task should only be done if this file is resaved.

But a solution where the user in some way trigs a reload is ok. Perhaps a button in the qvw. Macro?

I've read about the EDX but cannot get it working. On the server there is Qlikview 7 and Publisher 4.1.0 standard edition.

brgds

Andy

How to trig reload in Publisher?

Thu, 28 Jan 2010 00:01:34 GMT

Upgrade to ver 8.5 or ver 9, there you may execute an EDX from an application button using an XML HTTP request.
bye

How to trig reload in Publisher?

andy — Thu, 28 Jan 2010 09:36:35 GMT

Well I just wrote a macro that is trigged from a button in the UI. The macro performs the reload when the user press it.

/Andy

Here is the macro if anyone is interested...


sub reload_task

 set var1=ActiveDocument.GetVariable("ControlDirectory")


 fileName=var1.GetContent.string & "RR_Qlikview_trig_omladdning.TXT"

 'Dim sCurPath
 'sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
 'msgbox sCurPath

 Const ForReading = 1
 Set objFSO = CreateObject("Scripting.FileSystemObject")
' fileName="K:\Qlikview\LOTS\RR_Filer\Control\RR_Qlikview_trig_omladdning.TXT"
 If objFSO.FileExists(fileName) Then
 Set objTextFile = objFSO.OpenTextFile(fileName, ForReading)
 Dim row
 Do Until objTextFile.AtEndOfStream
 row=row+1
 strNextLine = objTextFile.Readline
 arrServiceList = Split(strNextLine , "=")
 For i = 1 to Ubound(arrServiceList)
 if row=2 Then
 str=arrServiceList(i)
 AR=Left(str,Len(str)-1)
 ElseIf row=3 Then
 str=arrServiceList(i)
 PERIOD=Left(str,Len(str)-1)
 End If
 Next
 Loop


 YesNo = MsgBox("Du är på väg att ladda om data för ÅR-PERIOD:"& AR&"-"&PERIOD&" (Angivet i 'RR_Qlikview_trig_omladdning.TXT') OK?",vbYesNo + vbQuestion,"Är du riktigt säker?")

 Select Case YesNo
 Case vbYes
 ActiveDocument.ReloadEx 2,0
 Case vbNo


 End Select

 Else

 msgbox "Kunde inte hitta filen 'RR_Qlikview_trig_omladdning.TXT'. Letade här: "&fileName

End If


end sub