Hi,

I'm trying to save a file/extract to a shared drive as FORMAT EXL2K but the file is saving as .XHT extension.

i can open the file in excel but i need to righ click open as.

quote:

ON TABLE SAVE AS REPEXT FORMAT EXL2K
END

How can I save this file as excel file instead of excel HTML.

Any help is appreciated.

PM

This message has been edited. Last edited by: <Kathryn Henning>,

If you have Excel installed on your server then you can dynamically create a Visual Basic script which will open the .xht formatted file and properly save it (overwrite it) as .xls format. There are many great examples of this code in the forums.

Put this code into your fex or, as I've done, put it into a separate fex that can be called by multiple procedures:

  
-DEFAULT &FILENAME_IN = 'd:\ibi\apps\domain\report.xls';

FILEDEF VBScript DISK [filename and path to script file, e.g. D:\ibi\apps\common\ConvertExcel.VBS]
-RUN
-*

-WRITE VBScript   Main
-WRITE VBScript   Sub Main
-WRITE VBScript   On Error Resume Next
-WRITE VBScript   Dim ojbExcel
-WRITE VBScript   Dim objBook
-WRITE VBScript   Dim objFSO
-WRITE VBScript   Wscript.Echo "The process has started"
-WRITE VBScript   set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
-WRITE VBScript   const xlNormal = 1
-WRITE VBScript   Set objExcel = CreateObject("Excel.Application")
-WRITE VBScript   if Err.Number <> 0 then
-WRITE VBScript  ' msgbox "Excel application not installed"
-WRITE VBScript     Wscript.Echo "Excel application not installed."
-WRITE VBScript     Wscript.Quit
-WRITE VBScript   end if
-WRITE VBScript    Wscript.Echo "opening file: " & "&FILENAME_IN.EVAL"
-WRITE VBScript   Set objBook = objExcel.Workbooks.Open("&FILENAME_IN.EVAL")
-WRITE VBScript   Wscript.Echo "FILE: " & objBook.FullName
-WRITE VBScript   If objFSO.FileExists(objBook) Then
-WRITE VBScript     objExcel.DisplayAlerts = False
-WRITE VBScript     objExcel.ActiveWorkbook.SaveAs objBook.FullName, xlNormal
-WRITE VBScript     objExcel.DisplayAlerts = True
-WRITE VBScript     objBook.Close
-WRITE VBScript     ELSE
-WRITE VBScript     Wscript.Echo "FILE does not exist: " & objBook.FullName
-WRITE VBScript   End If
-WRITE VBScript   objExcel.Quit
-WRITE VBScript   Set objBook  = Nothing
-WRITE VBScript   Set objExcel = Nothing
-WRITE VBScript   Set objFSO   = Nothing
-WRITE VBScript   End Sub

-RUN

-* Open file in MS Eggshell on the server to regain white space !!
-DOS CSCRIPT.EXE [filename and path to script file, e.g. D:\ibi\apps\common\ConvertExcel.VBS]
-RUN

Riya,

If you go into your administration console and look at your redirect settings, you can adjust the way that the .XHT saves. I have both my redirect and save report set to yes.

There is also some information on this in the helpful if you search under redirection.