2 Replies Latest reply: Apr 11, 2012 12:07 PM by Venkat Venkat RSS

    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

        • 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.