<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<script language="JavaScript" src="../../js/style.js"></script>
<script language="JavaScript" src="../../js/kba.js"></script> <script   language="VBScript"   for="cmdOk"   event="onClick">   
<!--
sub submit_onclick 
Dim ExceApp
Dim ExcelBook
Set ExcelApp = CreateObject("Excel.Application")
set ExcelBook = ExcelApp.Workbooks.Open("C:\kankyo\admin\saigai\Excel\SAIGAI_HASEI.xls")
ExcelApp.Application.Visible = False
ExcelApp.DisplayAlerts = False
    
With ExcelApp
.Run "auto_open"
.visible=true
End WithSet ExcelApp = Nothing
Set ExcelBook = Nothing   
end sub
  -->   
  </script>  
</head><body>
<font class="fontlg">■ グラフ 作成■</font><form action="saigai_picture.php" method="post"  name="myform1">

    <table >
<tr>
<td><input type="submit" name="cmdOk" value="選択"></td>
</tr>
</table>
</form>
</body>
</html>那这段代码错在哪里啊,敬请指出 ,为什么不能执行呢?????