[CLOSED] Excel tabs with HTML

November 21, 2019, 07:04 PM
I have two Excel outputs that need to display in two separate tabs in Excel. I would appreciate if anyone can tell me what I am doing wrong? CAR file example below. Thank you!
-SET &HDG=3;
-SET &COLBEG=3;
-SET &COLEND=2;

DEFINE FILE CAR
NEWMODEL/A24=PARAG(24, MODEL, ';', 8, NEWMODEL);
MODELP1/A8=GETTOK(NEWMODEL, 24, 1, ';', 8, MODELP1);
MODELP2/A8=GETTOK(NEWMODEL, 24, 2, ';', 8, MODELP2);
MODELP3/A8=GETTOK(NEWMODEL, 24, 3, ';', 8, MODELP3);
END
TABLE FILE CAR
SUM RCOST
ACROSS COUNTRY AS ''
ACROSS MODEL NOPRINT
ACROSS MODELP1 AS ''
ACROSS MODELP2 AS ''
ACROSS MODELP3 AS ''
BY CAR
ON TABLE SET PAGE OFF
ON TABLE SET STYLE *
TYPE=REPORT, ORIENTATION=LANDSCAPE, FONT='ARIAL',$
TYPE=REPORT, GRID=OFF, $
TYPE=ACROSSVALUE, ACROSS=COUNTRY, BORDER-RIGHT=MEDIUM, BORDER-LEFT=MEDIUM, BACKCOLOR=( 'YELLOW' 'WHITE' ), JUSTIFY=CENTER,$
TYPE=ACROSSVALUE, ACROSS=MODELP1, COLOR=RED,$
TYPE=ACROSSVALUE, ACROSS=MODELP2, COLOR=RED,$
TYPE=ACROSSVALUE, ACROSS=MODELP3, COLOR=RED,$
ENDSTYLE
ON TABLE HOLD AS HOLDFILE1 FORMAT HTMTABLE
END
-******************************************
DEFINE FILE CAR
NEWMODEL/A24=PARAG(24, MODEL, ';', 8, NEWMODEL);
MODELP1/A8=GETTOK(NEWMODEL, 24, 1, ';', 8, MODELP1);
MODELP2/A8=GETTOK(NEWMODEL, 24, 2, ';', 8, MODELP2);
MODELP3/A8=GETTOK(NEWMODEL, 24, 3, ';', 8, MODELP3);
END
TABLE FILE CAR
SUM RCOST
ACROSS COUNTRY AS ''
ACROSS MODEL NOPRINT
ACROSS MODELP1 AS ''
ACROSS MODELP2 AS ''
ACROSS MODELP3 AS ''
BY CAR
ON TABLE SET PAGE OFF
ON TABLE SET STYLE *
TYPE=REPORT, ORIENTATION=LANDSCAPE, FONT='ARIAL',$
TYPE=REPORT, GRID=OFF, $
TYPE=ACROSSVALUE, ACROSS=COUNTRY, BORDER-RIGHT=MEDIUM, BORDER-LEFT=MEDIUM, BACKCOLOR=( 'YELLOW' 'WHITE' ), JUSTIFY=CENTER,$
TYPE=ACROSSVALUE, ACROSS=MODELP1, COLOR=RED,$
TYPE=ACROSSVALUE, ACROSS=MODELP2, COLOR=RED,$
TYPE=ACROSSVALUE, ACROSS=MODELP3, COLOR=RED,$
ENDSTYLE
ON TABLE HOLD AS HOLDFILE2 FORMAT HTMTABLE
END
-******************************************
SET HTMLFORMTYPE=XLS
-**************************************************************
-HTMLFORM BEGIN

<html xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-9">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 11">


<!--[if gte mso 9]><xml>
 <x:ExcelWorkbook>
  <x:ExcelWorksheets>
   <x:ExcelWorksheet>
     <x:Name>Detail</x:Name>
    <x:WorksheetOptions>

     <!--x:FitToPage/-->
     <x:Print>
      <x:ValidPrinterInfo/>
       <x:Scale>75</x:Scale>
        <x:PaperSizeIndex>5</x:PaperSizeIndex>
        <x:HorizontalResolution>600</x:HorizontalResolution>
        <x:VerticalResolution>600</x:VerticalResolution>
        <x:Orientation>Landscape</x:Orientation>
     </x:Print>

<x:Selected/>
<x:DoNotDisplayGridlines/>
<!-- <x:FreezePanes/>
<x:FrozenNoSplit/>
<x:SplitHorizontal>&HDG.EVAL</x:SplitHorizontal>
<x:TopRowBottomPane>&HDG.EVAL</x:TopRowBottomPane>
<x:SplitVertical>&COLEND.EVAL</x:SplitVertical>
<x:LeftColumnRightPane>&COLEND.EVAL</x:LeftColumnRightPane> -->
<x:ActivePane>0</x:ActivePane>
<x:Panes>
<x:Pane>
<x:Number>&COLBEG.EVAL</x:Number>
</x:Pane>
<x:Pane>
<x:Number>1</x:Number>
</x:Pane>
<x:Pane>
<x:Number>&COLEND.EVAL</x:Number>
</x:Pane>
<x:Pane>
<x:Number>0</x:Number>
</x:Pane>
</x:Panes>

     <x:ProtectContents>False</x:ProtectContents>
    </x:WorksheetOptions>
  </x:ExcelWorksheet>

   <x:ExcelWorksheet>
   		<x:Name>Summary</x:Name>

   </x:ExcelWorksheet>

  </x:ExcelWorksheets>
 </x:ExcelWorkbook>

</xml><![endif]-->
 </head>
 <body>
!IBI.FIL.HOLDFILE1;

<TABLE>
<TR>
<TD>
!IBI.FIL.HOLDFILE2;
</TD>
<TD>
!IBI.FIL.HOLDFILE2;
</TD>
</TR>
</TABLE>
</body>
</html>
-HTMLFORM END
This message has been edited. Last edited by: FP Mod Chuck,