Focal Point Banner

As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you need access to myibi, contact us at and provide your corporate email address, company, and name.

Connect to myibi
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] EXL2K output created as .XHT

Read-Only Read-Only Topic
[CLOSED] EXL2K output created as .XHT

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.

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

Any help is appreciated.


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

WebFOCUS 8.1.05
Excel, PDF, Pivot, HTML
Posts: 29 | Registered: August 12, 2009Report This Post
posted Hide Post
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]

-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


-* 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]

WebFOCUS 7.6
Windows, All Outputs
Posts: 2 | Registered: September 26, 2014Report This Post
posted Hide Post

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.

Eric Woerle
8.1.05M Gen 913- Reporting Server Unix
8.1.05 Client Unix
Posts: 750 | Location: Warrenville, IL | Registered: January 08, 2013Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] EXL2K output created as .XHT

Copyright © 1996-2020 Information Builders