Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
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.
Hi all,
Still looking for any suggestion on this.
Thanks in advance.