Write Excel export using JScript

Below is an export of Excel with JScript language, the following program is a key segment of the export, and the reader can refer to the Excel user manual for modification.

Function exportExcel ()

{

Var isubjectnum, ilementnum;

Var stext;

VAR IX = 1;

VAR IY = 2;

VAR XLSUB;

// Alert ('export');

InIexcel ();

XLAPP.Visible = false;

IF (fso.fileexism (sexcelpath) == true) {

Xlsub = xlapp.Application.workbooks.open (sexcelpath);

// Alert (XLSUB);

//xlsub=xlapp.application.worksheets (ipage);

}

Else {

XLapp.Workbooks.Add ();

//xlsub=xlapp.application.worksheets(1);

// ipage = 1;

}

Var sheetcount = xlapp.application.works.count;

VAR addCount = ipage-sheetcount;

IF (addCount! = 0) {

FOR (var m = 0; m

Xlapp.application.worksheets.add ();

}

// ñ ° õõêç · ñóïïବμäsheet

Var bflag = false;

Var isheetpos = -1;

FOR (var n = 1; n <= sheetcount; n ) {

IF (xlapp.application.worksheets (n) .Name == ("Sheet" ipage.toString ())) {

Bflag = true;

ISHEETPOS = N;

}

}

IF (bflag == false)

{Xlapp.Application.worksheets.add ();

IPAGE = 1;

}

Else

{

ipage = isheetpos;

}

Xlsub = xlapp.Application.Worksheets (ipage);

Xlsub.cells (1, 1) .value = OHEAD.REPORTNAME.TOSTOSTRING ();

Stext = of_convert_char (1) "1:" of_convert_char (icolumnnum) "1";

Xlsub.Range (Stext) .merge (true);

Xlsub.range (stext). Horizontalalignment = 3;

Xlsub.range (stext) .font.size = 20;

Xlsub.Range (Stext) .font.bold = true;

ISUBJECTNUM = OHEAD.OSUBJECT.LENGTH;

IY = IY 1;

For (var i = 0; i

IF (Ohead.osubject [i] .oelement == NULL) {

Xlsub.cells (IY, IX) .value = OHEAD.OSUBJECT [i] .subjectname.toString ();

VAR TEMP = IY 3;

Stext = of_convert_char (ix) Iy.tostring () ": of_convert_char (ix) Temp.tostring (); Xlsub.Range (Stext) .merge (false);

Xlsub.range (stext). Horizontalalignment = 3;

Xlsub.Range (Stext) .borders.LineStyle = 1;

Xlsub.range (stext) .font.size = 10;

CONTINUE;

}

Else

Ilementnum = Ohead.osubject [i] .oelement.length;

Xlsub.cells (IY, IX) .value = OHEAD.OSUBJECT [i] .subjectname.toString ();

Stext = of_convert_char (ix) iy ":" of_convert_char (ix ilementnum-1) IY;

Xlsub.Range (Stext) .merge (true);

Xlsub.range (stext). Horizontalalignment = 3;

Xlsub.Range (Stext) .borders.LineStyle = 1;

Xlsub.range (stext) .font.size = 10;

IY = IY 1;

For (var j = 0; j

Xlsub.cells (iy, ix) .value = Ohead.osubject [i] .oeelement [j] .Elementname.toString ();

VAR TEMP = IY 2;

Stext = of_convert_char (ix) Iy.toString () ":" of_convert_char (ix) temp.tostring ();

Xlsub.Range (Stext) .merge (false);

Xlsub.range (stext). Horizontalalignment = 3;

Xlsub.Range (Stext) .borders.LineStyle = 1;

Xlsub.range (stext) .font.size = 10;

IX = IX 1;

}

IY = IY-1;

}

IY = IY 3;

FOR (var i = 0; i

IY ;

For (var j = 0; j

Xlsub.cells (IY, J 1) .Value = Obody [i] [j] .tostring ();

Xlsub.cells (IY, J 1). Borders.LineStyle = 1;

Xlsub.cells (IY, J 1) .font.size = 10;

}

}

IF (fso.fileexism (sexcelpath) == true) {

Var thiswork = xlapp.Application.activeworkbook;

THISWORK.SAVED = TRUE;

THISWORK.SAVE ();

Thiswork.close (True);

}

Else

Xlsub.saveas (SEXCELPATH);

WINDOW_ONUNLOAD ();

Alert ("ä1///////10 åô £" sexcelpath);

}