在IE中调用javascript打开Excel的代码(downmoon原作)

复制代码代码如下:

<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

<HTML>

<HEAD>

<METAhttp-equiv=Content-Typecontent="text/html;charset=utf-8">

</HEAD>

<BODY>

<inputname="shanghai"type="button"class="but"id="shanghai"onClick="StartExcel('上海')"value="上海店">

<SCRIPTLANGUAGE="Javascript">...

varidTmr="";

functionStartExcel(strFileName)

...{

varoExcel;

varoWorkbook;

varstrAllName;

oExcel=newActiveXObject("Excel.Application");

//if(strFileName=null||strFileName="")

//{return;

//}

strAllName="ep-hghTop30销控表TOP30招商续约销控表-"+strFileName+".xls";

oExcel.Workbooks.Open(strAllName);

//oExcel.Workbooks.Open("file://ep-hgh/Top30销控表/TOP30招商续约销控表-上海.xls");

oExcel.DisplayAlerts=false;

oExcel.Visible=true;

//oExcel.Quit();

//oExcel=null;

//防EExcel死进程的关键！！必须！！！downmoon严重声明

idTmr=window.setInterval("Cleanup();",1000);

}

functionCleanup()...{

window.clearInterval(idTmr);

CollectGarbage();

}

</SCRIPT>

</BODY>

</HTML>