ในทางปฏิบัติ Excel มีแอปพลิเคชันมากมาย วันนี้ฉันได้รับไฟล์ Excel จำนวนมาก และฉันต้องอ่านข้อมูลในไฟล์เหล่านั้นและใช้เพื่อวัตถุประสงค์อื่น ซึ่งเกี่ยวข้องกับการสำรวจชื่อตารางทั้งหมดใน Excel ดูรหัส:
คัดลอกรหัสรหัสดังต่อไปนี้:
<%@LANGUAGE=รหัส VBSCRIPT=65001%>
-
dim conn,rs,excelFileName
excelFileName=Server.MapPath(ข้อมูล/test.xls)
ชุด conn = Server.CreateObject (ADODB.Connection)
conn.connectionstring=Provider=Microsoft.Jet.OleDb.4.0;ข้อมูลความปลอดภัยคงอยู่=True;แหล่งข้อมูล= & excelFileName & ;ProPerties แบบขยาย=Excel 8.0;HDR=ใช่;IMEX=1;
con.open()
ตั้ง rs = conn.OpenSchema (20)
-
<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns= http://www.w3.org/1999/xhtml>
<หัว>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/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(Table_Name)&<br />)
rs.movenext
เวน
-
</ร่างกาย>
</html>