ASP读取xls格式的Excel文件
2011年6月28日
ASP
12 评论
Excel也是一种数据库，跟Access类似，其读取方法也类似。
这里有一个简单的Excel表，文件名字为Excel.xls：
咱就这个为例子来说明。
创建Excel连接代码：
Dim XlsConn,xrs
Set XlsConn=Server.CreateO bject("Adodb.Connection")
XlsConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&Server.MapPath("Excel.xls")&";Extended Properties=Excel 8.0" 是不是跟连接Access文件很像呢？呵呵~
连接创建好了，就可以创建记录集查询Excel里面的数据了。
Set xrs=XlsConn.Execute("Select * From [Sheet1$]")
跟其他数据库的查询几乎是一样的，要注意的地方就是表名，Excel里面，默认会有三张表，Sheet1、Sheet2、Sheet3，从上面的例子也可以看到，需要注意查询时表名后面要加“$”符；查询结果：xrs(0)="数据列0"
asp网页文件的格式
xrs(1)="1"
xrs(2)="2"
xrs(3)="3"
xrs(4)="4"
xrs(5)="5"
这里有一点需要注意，如果一列中有多行，有的行的值是数字，有的行是字符，ASP去取值的时候
数字行会读取出错，是为空的。所以得想办法把数字行也变成字符型，比如加个’号去，读取出来之后再替换回去。
多行自然是用xrs.Movenext去循环取得了。够简单吧！
最后贴一段代码：
Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select Top 1 * From Pro Where 1=2",Conn,3,2
Dim XlsConn,xrs
Set XlsConn=Server.CreateO bject("Adodb.Connection")
XlsConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&Server.MapPath("Excel.xls")&";Extended Properties=Excel 8.0"
Set xrs=XlsConn.Execute("Select * From [Sheet1$]")
Do While Not xrs.Eof
rs.Addnew
rs("iClear")= xrs(0)
rs("Detail")= xrs(1)
rs.Update
xrs.Movenext
Loop
xrs.Close()
Set xrs=Nothing
XlsConn.Close()
Set XlsConn=Nothing
rs.Close()
Set rs=Nothing
ASP操作xls文件(2005-11-10 14:15:12)转载▼
标签：杂谈分类：ASP
只写一种方法。个人认为不错的方法。还是通过ADO来读，也不要什么组件的干活。<%
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "book.xls" )&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';"
conn.Open connStr
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [sheet1$]",conn,1,1
If not (rs.BOF AND rs.EOF) Then
DO While Not rs.EOF
str=Trim(rs(0) & " - " & Trim(rs(1)) & " - " & Trim(rs(2)))
Response.Write(str & "<br/>")
rs.MoveNext
Loop
End If
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
asp如何读取xls，并添加到数据库。
创建Excel对象
-----------------------------------------
<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false                '不显示警告objExcelApp.Application    = false                '不显示界面
%>
新建Excel文件
--------------------------------------
<%
objExcelApp.WorkBooks.add
set objExcelBook    = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet  = objExcelBook.Sheets(1)
%>
读取已有的Excel文件
-----------------------------------------
<%
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls") set objExcelBook    = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet  = objExcelBook.WorkSheets(1)
%>
另存Excel文件
----------------------------------------
<%
objExcelBook.SaveAs strAddr & "templateTables.xls"
%>
保存Excel文件
------------------------------------------
<%
objExcelBook.Save
%>
(6) 退出Excel操作
<%
objExcelApp.Quit          '一定要退出
set objExcelApp = nothing
%>
读取实例
-----------------------------------------
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"

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。