<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>那这段代码错在哪里啊,敬请指出 ,为什么不能执行呢?????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货