主页

在ASP中可以调用EXCEL数据吗？

sherrysheng 2002-07-22 08:40:16

在ASP中试图用ADO打开EXCEL电子表中数据，总是失败！
不知是否可实现？
不知有谁使用过该方法，可否提供代码？

...全文

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

hchxxzx 2002-07-23

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>运用普通的数据库链接读取EXCEL文件内容</title>
</head>
<body bgcolor="#FFFFFF" >
<h2 align="center">运用普通的数据库链接读取EXCEL文件内容</h2>
<CENTER>
<TABLE border="0" style="font-size: 10pt" style="border: 2 groove #000000">
<%
'创建数据库链接,注意这下面的[sheet1$]为实际表中的名字，如果原表名不是起这样的名字的话将引起出错
set cn=server.createobject("adodb.connection")
stropen="driver={microsoft excel driver (*.xls)}; dbq="& server.mappath("book1.xls")
cn.open stropen
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [sheet1$]", cn, 2, 2

Response.Write "<TR BGCOLOR=#008000><TD width=100>0</TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD width=100>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"
RecNo=1
Do While Not rs.EOF
Response.Write "<TR bgColor=#e6e6e6>"
Response.Write"<TD width=100>"&RecNo&"</TD>"
for i=0 to rs.fields.count-1
Response.Write"<TD width=100>"&rs.Fields(i).Value&"</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
RecNo=RecNo+1
Loop
rs.close
%>
</TABLE>
</CENTER>
</body>
</html>

回复赞

zephyr_zhao 2002-07-23

conn.Open ";driver={Microsoft Excel Driver (*.xls)};DBQ=D:\work\Record_Doc.xls"

回复赞

114 2002-07-23

像连接access数据库一样只是在 select * from sheet1$ 有点变化
记住"$"

其余的没有什么差别。

回复赞

hchxxzx 2002-07-22

Set xlApp = CreateObject("Excel.Application") '创建对象
xlApp.Visible = true '隐藏电子表格
Set xlBook = xlApp.Workbooks.Open("e:\aqjcsj\xwfb_dy.xls") '打开文件
Set xlSheet = xlBook.Worksheets(1)'打开第一个表
for i=1 to 10
for j=1 to 10
response.write xlSheet.Cells(i,j)
next
next
xlApp.DisplayAlerts=false
xlbook.close'关闭连接

回复赞

zephyr_zhao 2002-07-22

可以的
明天给你例子,在公司里...

回复赞