ASP操作Excel（读写）

最新推荐文章于 2017-01-02 08:42:53 发布

canlynet

最新推荐文章于 2017-01-02 08:42:53 发布

阅读量1.1k

点赞数 1

分类专栏： web 文章标签： Excel ASP SQL Server SQL Microsoft

本文链接：https://blog.youkuaiyun.com/canlynet/article/details/83848128

版权

web 专栏收录该内容

22 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以前总是从网页上大量复制内容到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>