На практике у Excel есть много приложений. Сегодня я получил кучу файлов Excel, и мне нужно прочитать данные в них и использовать их для других целей. Это предполагает обход asp всех имен таблиц в Excel. Посмотрите на код:
Скопируйте код кода следующим образом:
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=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=Да;IMEX=1;
конн.открыть()
установите 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>
<голова>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 />
<title>Операции Excel</title>
</голова>
<тело>
<%
тусклый я
response.write(поле информации таблицы Excel:<br />--------------------------------<br />)
для i = 0 до rs.fields.count-1, шаг 1
response.write(rs.fields(i).name&<br />)
следующий
response.write(<br />Имя таблицы (Table_Name) в Excel:<br />------------------------<br />)
пока не rs.EOF
response.write(rs(Имя_таблицы)&<br />)
rs.movenext
идти
%>
</тело>
</html>