asp调用Excel时出现错误,请问怎么解决?
<html>
<head>
</head>
<body>
<%
'Server.ScriptTimeOut=10000
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示提示
objExcelApp.AskToUpdateLinks = False '不更新链接
'response.Write "1"
objExcelApp.Visible = True
'response.Write "2"
strAddr = Server.MapPath(".")
'response.Write "3"
'objExcelApp.Workbooks.Open ("f:\wjw\lhyt\年统计报表.xls")
objExcelApp.Workbooks.Open ("f:\wjw\lhyt\111.xls")
'response.Write "4"
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
objExcelBook.SaveAs strAddr & "\Table.xls"
objExcelApp.Quit
set objExcelApp = Nothing
response.Write "保存成功"
%>
</body>
</html>
错误:
---------------------------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Active Server Pages 错误 'ASP 0113'
脚本超时
/111.asp
超过了脚本运行的最长时间。您可以通过指定 Server.ScriptTimeOut 属性值来修改此限制或用 IIS 管理工具来修改它。
--------------------------------------------------------------------
如果把"Server.ScriptTimeOut=10000"不去掉,出现如下错误:
--------------------------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象: 'Excel.Application'
/111.asp,行7
---------------------------------------------------------------------
请问如何解决?对了,说明一下,这个Excel文件有外部链接,每次打开文件提示是否更新链接。