急,修改Excel文件出错!!!!!!!
代码如下
<%
dim objExcelApp
set objExcelApp = server.CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
'objExcelApp.WorkBooks.add
objExcelApp.Workbooks.Open "d:\bmis\p\bud.xls"
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Cells(1,1).Value=3
objExcelSheet.Cells(1,2).Value=2
objExcelBook.Save
objExcelApp.Quit
set objExcelApp = Nothing
%>
出错提示如下:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
服务器对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/bmis/p/t.asp,行24
无效的 ProgID。 若要获取关于此消息的更多的信息,请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。