如何用asp读取excel文件
答案:2 悬赏:0 手机版
解决时间 2021-04-07 15:58
- 提问者网友:我一贱你就笑
- 2021-04-07 07:52
如何用asp读取excel文件
最佳答案
- 五星知识达人网友:慢性怪人
- 2021-04-07 08:15
Dim Conn,Driver,DBPath,Rs
'建立Excel的Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open方法打开数据库
Conn.Open Driver & DBPath
'设置DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要按照 "[表名$]" 格式书写
Sql="Select * From [Sheet1$] where 序号=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "数据未找到!!"
Else
Do While Not Rs.EOF
Response.write Rs("书名")
Rs.MoveNext
Loop
End IF
'建立Excel的Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'调用Open方法打开数据库
Conn.Open Driver & DBPath
'设置DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要按照 "[表名$]" 格式书写
Sql="Select * From [Sheet1$] where 序号=0"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "数据未找到!!"
Else
Do While Not Rs.EOF
Response.write Rs("书名")
Rs.MoveNext
Loop
End IF
全部回答
- 1楼网友:不想翻身的咸鱼
- 2021-04-07 08:29
直接读取
注意点:同读取acc数据一样
dim extname
extname = "表名"
set conn =server.createobject("adodb.connection")
strconn="driver={microsoft excel driver (*.xls)};dbq="& server.mappath(文件路径和文件名)
conn.open strconn
set rs = server.createobject("adodb.recordset")
sql="select * from ["&extname&"$] "
rs.open sql,conn,3,3
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯