在企業級應用當中,我們往往需要對Execl進行操作,如讀取Execl裡面的資料、往Execl裡插入資料等。 一、操作Execl要注意的事項:1、 伺服器端Office的配置以MS Windows2000+IIS為例,要在伺服器端安裝有MS Office的成員之一Execl,Office的版本沒有特殊要求。2、 伺服器端分布式COM的配置執行“ DCOMCNFG”命令,選擇“應用程式”頁的“Microsoft Execl 應用程式”—>“屬性”—>“安全性”—>三個選項都選“使用自訂存取權限”,添加“Everyone”許可權。二、首先,先將利用ASP讀取Execl的資料(不建立DSN):我們可以整個.xsl檔案看作是一個資料庫,sheet1、sheet2等分別看成一個獨立的表,把A1、B1、C1、…N1看作表的欄位。--建立連線物件執行個體ExeclConnSet ExeclConn=Server.CreateObject(“ADODB.Connection”)--利用Open 方法開啟資料庫StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_"DriverId=790; DBQ="& Server.MapPath("xls檔案名稱")conn.Open StrConn--建立資料集對象Rs並查詢資料Set Rs = Server.CreateObject("ADODB.Recordset") Sql="select * from [Sheet1$]"rs.Open Sql,conn,2,2具體例子:1、建立一個表Sheet1(資料庫名為Students)
StudentID |
姓 名 |
語 文 |
數 學 |
物 理 |
化 學 |
地 理 |
|
1 |
李雪青 |
83 |
84 |
76 |
95 |
66 |
|
2 |
馮江 |
87 |
96 |
82 |
100 |
81 |
|
3 |
吳小霞 |
76 |
43 |
37 |
60 |
82 |
|
4 |
鄒亞匯 |
80 |
77 |
63 |
71 |
63 |
|
5 |
蔡海飛 |
89 |
63 |
92 |
86 |
67 |
|
2、查詢並顯示表Sheet1內容的代碼<%Dim connDim StrConnDim rsDim SqlSet conn=Server.CreateObject("ADODB.Connection") StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_"DriverId=790; DBQ="& Server.MapPath("Students.xls")conn.Open StrConnSet rs = Server.CreateObject("ADODB.Recordset") Sql="select * from [Sheet1$]"rs.Open Sql,conn,2,2 %><center><table border="1"><tr><%for i=0 to rs.Fields.Count-1%> <td bgcolor="#0099FF"><%=rs(i).Name%></td><%next%></tr><%do while Not rs.EOF%><tr><%for i=0 to rs.Fields.Count-1%> <td><%=rs(i)%></td><%next%></tr><% rs.MoveNext Loop rs.close set rs=nothing StrConn.close set StrConn=nothing%></table></center>