ASP实现 Excel表名读取的代码

发布时间：2023-06-21 13:46:25 所属栏目：Asp教程来源：

导读：excel在实际中，还有大量应用，今天就拿到一堆的excel文件，需要对里面的数据做下读取另作他用，这里就涉及到了asp遍历excel的所有表名。

看代码：

复制代码代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE=

excel在实际中，还有大量应用，今天就拿到一堆的excel文件，需要对里面的数据做下读取另作他用，这里就涉及到了asp遍历excel的所有表名。

看代码：

复制代码代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%

dim conn,rs,excelFileName

excelFileName=Server.MapPath("Data/test.xls")

set conn = Server.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)

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns=" http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Excel操作</title>

</head>

<body>

<%

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

%>

</body>

</html>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!