欢迎您访问无锡国力软件

技术文档 -- 详情

ASP读取EXCEL文件与读取EXCEL表名

时间:2017/04/07 浏览:947

首先读取EXCEL文件:

Dim Driver,DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};Readonly=0;"
DBPath = "DBQ=" & Server.MapPath(excel) 
conn.Open Driver & DBPath

然后读取EXCLE中的表名称:

set tab_rs=conn.OpenSchema(20) 
tbname=tab_rs("Table_Name")

最后读取EXCLE表中具体的数据:

set rs= Server.CreateObject("adodb.recordset")
sql="select * from ["& tbname &"]" '$
set rs=conn.Execute(sql)

response.write rs(0)...

其中,读取EXCEL表 名称以下方法亦可用:

'Set adox = CreateObject("ADOX.Catalog") 
'adox.activeConnection = conn 
'for each table in adox.tables 
'if table.type="TABLE" then 
'response.write "test:"&table.name
'end if 
'next
读取EXCEL文件以下方法也可用:

'connString= "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="&Server.MapPath(excel)&";Persist Security Info=False"
'set rs= Server.CreateObject("adodb.recordset")
'rs.ActiveConnection = connString
'rs.source="select * from ["& tbname &"$]"
'rs.open()


0 条评论
已输入 0
发  布
查看更多评论
已加载完所有评论

联系我们

332003288

咨询扣扣:332003288
联系电话:15874676201

返回网站顶部