من الناحية العملية، يحتوي Excel على الكثير من التطبيقات. اليوم حصلت على مجموعة من ملفات Excel، وأحتاج إلى قراءة البيانات الموجودة فيها واستخدامها لأغراض أخرى. وهذا يتضمن اجتياز جميع أسماء الجداول في Excel. انظر إلى الكود:
انسخ رمز الكود كما يلي:
<%@LANGUAGE=صفحة كود VBSCRIPT=65001%>
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath(Data/test.xls)
تعيين conn = Server.CreateObject(ADODB.Connection)
conn.connectionstring=Provider=Microsoft.Jet.OleDb.4.0;معلومات الأمان المستمرة=True;مصدر البيانات= & excelFileName & ;Extensive ProPerties=Excel 8.0;HDR=Yes;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;
<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(Table_Name)&<br />)
rs.movenext
com.wind
%>
</الجسم>
</html>