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

sherrysheng 2002-07-22 08:40:16
在ASP中试图用ADO打开EXCEL电子表中数据,总是失败!
不知是否可实现?
不知有谁使用过该方法,可否提供代码?
...全文
79 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
可以的
明天给你例子,在公司里...
ar7_top 2002-07-22
  • 打赏
  • 举报
回复
ChinaOk 成偶像了?!

呵呵

:)
chiny 2002-07-22
  • 打赏
  • 举报
回复
终于看到chinaOk出来了,好!
ChinaOk 2002-07-22
  • 打赏
  • 举报
回复
看看专题

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧