Qlik Community

QlikView Deployment

Discussion Board for collaboration related to QlikView Deployment.

Not applicable

ServerSideExportEx

Hi all,

i am using below macro for creating "tabdelimited" text files in user selected location. In desktop app it is working fine but

in IE Server app it is not creating text file in selected folder.

What might be the problem and please any suggestions on this ?

Function Export()

fName=InputBox("Please enter your filename")

if (fName ="") then

Msgbox "Query has Cancelled"

else

Dim objShell

Dim ssfWINDOWS

Dim objFolder

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder(0, "Example Select Folder", 0, strRootPath)

If (Not objFolder Is Nothing) Then

Set obj1= ActiveDocument.GetSheetObject("CH01")    

obj1.ServerSideExportEx objFolder.ParentFolder.ParseName(objFolder.Title).Path&"\"&fName&replace(Date(),"/","")&"_"&replace(Time(),":","")&".txt","    ",1

MSGBOX "Data has been Transfered to "& objFolder.ParentFolder.ParseName(objFolder.Title).Path&"\"&fName&"_"&replace(Date(),"/","")&"_"&replace(Time(),":","")

End If

Set objFolder = Nothing

Set objShell = Nothing

end if

End Function

Thanks in advance.


Regards

Veera

2 Replies
Not applicable

Re: ServerSideExportEx

Hi all,

Consider current app(sample.qvw file) is stored in Server machine that is located in some other branch of my company.

Now i am connected from IE server to other branch server machine. And i opened to "Sample.qvw file" from IE server in my local machine.

In that file i am having an action export button, when i click on that export button then it is asking for the

1.) Type FileName

2.) Opening "Folder Dialog box" of my local machine and i'm selecting the destination location.

3.) And displaying the message "Text File is created in selected destination location".

but i'm not able to see any text file in my destination folder.

Please can anyone help on this process.

And please check the below macro used in "Export button" and suggest if any modification required on this.

Function Export()

fName=InputBox("Please enter your filename")

if (fName ="") then

Msgbox "Query has Cancelled"

else

Dim objShell

Dim ssfWINDOWS

Dim objFolder

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder(0, "Example Select Folder", 0, strRootPath)

If (Not objFolder Is Nothing) Then

Set obj1= ActiveDocument.GetSheetObject("CH01")    

obj1.ServerSideExportEx objFolder.ParentFolder.ParseName(objFolder.Title).Path&"\"&fName&replace(Date(),"/","")&"_"&replace(Time(),":","")&".txt","    ",1

MSGBOX "Data has been Transfered to "&   objFolder.ParentFolder.ParseName(objFolder.Title).Path&"\"&fName&"_"&replace(Date(),"/","")&"_"&replace(Time(),":","")

End If

Set objFolder = Nothing

Set objShell = Nothing

end if

End Function

Thanks in advance.

Not applicable

Re: ServerSideExportEx

Hi all,

Still looking for any suggestion on this.

Thanks in advance.

Community Browser