ASP操作Excel（读写）

最新推荐文章于 2025-12-11 14:22:31 发布

原创最新推荐文章于 2025-12-11 14:22:31 发布 · 1.1k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

web

当前文章被收录于：

web

22 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一种使用ASP的ADODB对象操作Excel文件的方法，包括读取和写入数据，并提供了一个具体的示例代码，展示了如何通过ASP脚本来实现对Excel表格的操作。

以前总是从网页上大量复制内容到Excel，很麻烦。
查询发现，原来ASP的ADODB对象可以操作Execl，可以读，也可以写，示范代码如下，供大家参考：


<% 
Dim Conn,Driver,DBPath,Rs 
Set Conn = Server.CreateObject("ADODB.Connection") 
Driver = "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;" 
DBPath = "DBQ=" & Server.MapPath( "book.xls" ) 
Conn.Open Driver & DBPath 
Set Rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from [Sheet1$]" 
Rs.Open Sql,conn,1,3
%> 
<table border="1"> 
<tr> 
<% for i=0 to Rs.Fields.Count-1 %> 
	<td bgcolor="#0099FF"><%=Rs(i).Name%></td> 
<% next %> 
</tr> 

<% do while Not Rs.EOF %> 
	<tr> 
	<% for i=0 to Rs.Fields.Count-1 %> 
		<td><%=Rs(i)%></td>
	<%
	next %> 
	</tr> 
<%
	Rs("书名") = "神雕侠侣" & i+1
	Rs.Update
	Rs.MoveNext 
Loop 
Rs.close 
set Rs=nothing 
Conn.close 
set Conn=nothing 
%> 
</table>