如何用ASP读取Excel文件
答案:2 悬赏:0
解决时间 2021-03-03 00:05
- 提问者网友:騷女、無惡不作
- 2021-03-02 09:11
如何用ASP读取Excel文件
最佳答案
- 二级知识专家网友:孤伤未赏
- 2021-03-02 10:24
直接读取
注意点:同读取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
注意点:同读取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
全部回答
- 1楼网友:初心未变
- 2021-03-02 11:36
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |