ASP讀EXCEL2000的文章

來源:互聯網
上載者:User
excel 由於工作需要 要用ASP讀取EXCEL的工資單 所以在網上找了些資料
寫了以下程式 送給大家:)
<%
'=====================ASP讀取EXCEL注事項===========================
'i)將Excel97或Excel2000產生的XLS檔案(book)看成一個資料庫,其中的每一個工作表(sheet)看成資料庫表
'ii)ADO假設Excel中的第一行為欄位名.所以你定義的範圍中必須要包括第一行的內容
'iii)Excel中的列名(即欄位名)不能夠包含數字. Excel的驅動在遇到這種問題時就會出錯的。例如你的列名名為“F1”
'iiii)如果你的Excel試算表中某一列同時包含了文本和數位話,那麼Excel的ODBC驅動將不能夠正常, 處理這一行的資料類型,你必須要保證該列的資料類型一致
'E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net
'整理時間:Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 測式通過
'===================================================================

Dim Conn,Driver,DBPath,Rs
' 建立Connection對象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "test.xls" )
'調用Open 方法開啟資料庫
Conn.Open Driver & DBPath

'DSN串連方式
'Conn.Open "Dsn=test"
'注意 表名一定要以下邊這種格試 "[表名$]" 書寫
Sql="Select * From [Sheet1$] where 序號=0"
Set Rs=Conn.Execute(Sql)

IF Rs.Eof And Rs.Bof Then
Response.write "沒有找到您需要的資料!!"
Else

Do While Not Rs.EOF

Response.write Rs("姓名")

Rs.MoveNext
Loop
End IF

Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
'Response.Write "成功!"
%>



聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.