注册
个人空间
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>execle</title>
</head>
<body>
<%
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("test.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from tx "
rs.open sql,conn,3,2
strAddr = Server.MapPath(".")
excelfile="aa.xls"
set objExcelApp = server.CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
objExcelSheet.Cells(1,1).Value="a"
objExcelSheet.Cells(1,2).Value="b"
objExcelSheet.Cells(1,3).Value="c"
i=2
while not rs.eof
objExcelSheet.Cells(i,1).Value=rs("id")
objExcelSheet.Cells(i,2).Value=rs("name")
objExcelSheet.Cells(i,3).Value=rs("bei")
rs.movenext
i=i+1
wend
objExcelBook.SaveAs strAddr &excelfile
objExcelApp.Quit
set objExcelApp = Nothing
response.Write "<center>导出成功<br/>"
response.Write "点击<a href='http://topic.csdn.net/t/20061218/11/xls/files/"&excelfile&"' target='_blank' onclick='javascript:window.close()'>打开</a>导出的Excel文件</center>"
%>
</body>
</html>
运行后 ：
Microsoft Office Excel 错误 '800a03ec'
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18) |
| TAG标签: | 不能 访问 文件 出现 问题 set objExcelSheet.Cells .Value |
