topic Re: EXpression variable in QlikView

EXpression variable

souadouert — Mon, 23 Jul 2018 06:53:47 GMT

Hello,

how to have all the list of the variables of an application with its expression, without going through the menu of the variables

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 07:02:49 GMT

Create an empty Inputbox object and note the object reference.

Create this macro subroutine ...

sub ShowVars

rem ** Show name of all variables in document **

set vars = ActiveDocument.GetVariableDescriptions

set IB = ActiveDocument.GetSheetObject("IB01")

for i = 0 to vars.Count - 1

set v = vars.Item(i)

'msgbox(v.Name & "=" & v.RawValue)

'Add to InputBox object (IB01)

IB.AddVariable v.Name

next

end sub

Add a button to call this code

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 08:54:08 GMT

Thank ypu

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 09:01:43 GMT

Welcome

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 09:39:06 GMT

Arvid how to write the value in csv or text file ?

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 09:43:08 GMT

Souad try this

1. Create an input box

2. Click Add All to list all variables

3. Send to Excel

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 09:51:04 GMT

i used this script

sub ShowVars

rem ** Show name of all variables in document **

set vars = ActiveDocument.GetVariableDescriptions

set IB = ActiveDocument.GetSheetObject("IB01")

DIM fso, MyFile, strFile, strText

strFile="c:\temp\link.msgFile"

Set fso = CreateObject("Scripting.FileSystemObject")

for i = 0 to vars.Count - 1

set v = vars.Item(i)

'msgbox(v.Name & "=" & v.RawValue)

'Add to InputBox object (IB01)

link=v.Name &","&v.RawValue

If fso.FileExists(strFile) Then

Set MyFile = fso.OpenTextFile (strFile, 2, True)

Else

Set MyFile = fso.CreateTextFile(strFile)

End If

MyFile.WriteLine(link)

OpenFile()

MyFile.Close

end sub

FUNCTION OpenFile

set app = ActiveDocument.GetApplication

app.Launch "C:\temp\link.msgFile", "file path"

END FUNCTION

But i have always problem with this ligne

link= link=v.Name &","&v.RawValue

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 09:56:34 GMT

Please run the code which i had given above and make sure that reference of empty input box is correct

and let me know its working or not

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 09:57:45 GMT

I modified the script

sub ShowVars

rem ** Show name of all variables in document **

set vars = ActiveDocument.GetVariableDescriptions

DIM fso, MyFile, strFile, strText

strFile="C:\Prod\liste"

Set fso = CreateObject("Scripting.FileSystemObject")

for i = 0 to vars.Count - 1

set v = vars.Item(i)

'msgbox(v.Name & "=" & v.RawValue)

'Add to InputBox object (IB01)

link= v.Name &","&v.RawValue

If fso.FileExists(strFile) Then

Set MyFile = fso.OpenTextFile (strFile, 2, True)

Else

Set MyFile = fso.CreateTextFile(strFile)

End If

MyFile.WriteLine(link)

OpenFile()

MyFile.Close

end sub

FUNCTION OpenFile

set app = ActiveDocument.GetApplication

app.Launch "C:\Prod\liste", "file path"

END FUNCTION

the script executed but the file is empty

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 10:01:10 GMT

It is because of macro security issues

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 10:07:56 GMT

Yes arvind , but always i have two problem

the first with each variable i had this msg

and i need to return to line , because always wrote in the first ligne

Re: EXpression variable

souadouert — Mon, 23 Jul 2018 10:19:50 GMT

I get the solution

sub ShowVars

rem ** Show name of all variables in document **

set vars = ActiveDocument.GetVariableDescriptions

DIM fso, MyFile, strFile, strText

strFile="C:\Prod\liste.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(strFile) Then

Set MyFile = fso.OpenTextFile (strFile, 2, True)

Else

Set MyFile = fso.CreateTextFile(strFile)

End If

for i = 0 to vars.Count - 1

set v = vars.Item(i)

'msgbox(v.Name & "=" & v.RawValue)

'Add to InputBox object (IB01)

link= v.Name &"|"&v.RawValue& chr(13)

'msgbox( v.Name &","&v.RawValue)

MyFile.WriteLine(link)

MyFile.Close

end sub

Re: EXpression variable

arvind1494 — Mon, 23 Jul 2018 10:24:47 GMT

Good