帮你在Google网上论坛上找到了一个方法,测试通过
<HTML>
<HEAD>
</HEAD><BODY><script>
var isIE = (navigator.appVersion.indexOf("MSIE") != -1) ? true : false;
var isWin = (navigator.appVersion.indexOf("Windows") != -1) ? true : false;
jsVersion = 1.1;
if(isIE && isWin){
document.write('<SCR' + 'IPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('objIsInstalled =(IsObject(CreateObject("OWC.Chart.9"))) \n');
document.write('</SCR' + 'IPT\> \n');
}if(typeof(objIsInstalled) != 'undefined') alert('OK');
</script>
</SCRIPT>
<object
ID="Microsoft Office Chart 9.0"
classid="CLSID:0002E500-0000-0000-C000-000000000046"
width=80
height=30></object></BODY>
<HTML>
<HEAD>
</HEAD><BODY><script>
var isIE = (navigator.appVersion.indexOf("MSIE") != -1) ? true : false;
var isWin = (navigator.appVersion.indexOf("Windows") != -1) ? true : false;
jsVersion = 1.1;
if(isIE && isWin){
document.write('<SCR' + 'IPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('objIsInstalled =(IsObject(CreateObject("OWC.Chart.9"))) \n');
document.write('</SCR' + 'IPT\> \n');
}if(typeof(objIsInstalled) != 'undefined') alert('OK');
</script>
</SCRIPT>
<object
ID="Microsoft Office Chart 9.0"
classid="CLSID:0002E500-0000-0000-C000-000000000046"
width=80
height=30></object></BODY>
On Error Resume NextDim MyInt, MyCheck, MyObject
set myobject=CreateObject("Excel.Application")
Set MyObject = CreateObject("excel.sheet.8")
MyCheck = IsObject(MyObject) ' Returns True.
if MyCheck then
msgbox("你已安装Excel可以继续下面操作")
else
msgbox("你未安装Excel或你IE的安全级别设置太高")
end if
</script>