In der Praxis gibt es für Excel viele Anwendungen. Heute muss ich die darin enthaltenen Daten lesen und für andere Zwecke verwenden. Dazu gehört das Durchlaufen aller Tabellennamen in Excel. Schauen Sie sich den Code an:
Kopieren Sie den Codecode wie folgt:
<%@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>
<Kopf>
<meta http-equiv=Content-Type content=text/html;
<title>Excel-Operationen</title>
</head>
<Körper>
<%
dim ich
Response.write(Excel-Tabelleninformationsfeld:<br />--------------------------------<br />)
für i=0 bis rs.fields.count-1 Schritt 1
Response.write(rs.fields(i).name&<br />)
nächste
Response.write(<br />Tabellenname (Table_Name) in Excel:<br />------------------------<br />)
während nicht rs.EOF
Response.write(rs(Table_Name)&<br />)
rs.movenext
wenden
%>
</body>
</html>