excel在实际中,还有大量应用,今天就拿到一堆的excel文件,需要对里面的数据做下读取另作他用,这里就涉及到了asp遍历excel的所有表名。
看代码: Excel操作
代码如下:
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath(“Data/test.xls”)
set conn = Ser来源gaodaimacom搞#代%码网ver.CreateObject(“ADODB.Connection”)
conn.connectionstring=”Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info=True;Data Source=” & excelFileName & “;Extended ProPerties=””Excel 8.0;HDR=Yes;IMEX=1″”;”
conn.open()
set rs=conn.OpenSchema(20)
%>
<%
dim i
response.write(“Excel表信息字段:
————————
“)
for i=0 to rs.fields.count-1 step 1
response.write(rs.fields(i).name&”
“)
next
response.write(“
Excel中的表名(Table_Name):
————————
“)
while not rs.EOF
response.write(rs(“Table_Name”)&”
“)
rs.movenext
wend
%>
以上就是asp读取excel表名的实现代码的详细内容,更多请关注gaodaima搞代码网其它相关文章!