Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Upgrade to ver 8.5 or ver 9, there you may execute an EDX from an application button using an XML HTTP request.
bye
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