Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
andy
Partner - Creator III
Partner - Creator III

How to trig reload in Publisher?

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

2 Replies
Not applicable

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

andy
Partner - Creator III
Partner - Creator III
Author

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