发信人: r_hayes(Hayes)
整理人: qcrsoft(2002-05-13 01:06:52), 站内信件
|
5）将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表。
Function CreateExcelRecordset( XLS文件名,Sheet名 )
Dim conn.Driver,DBPath
’ 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "XLS文件名" )
’ 调用Open 方法打开数据库
conn.Open Driver & DBPath
Set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")
’ 打开Sheet，参数二为Connection对象,因为Excel ODBC驱动程序无法直接用’sheet名来打开sheet,所以请注意以下的select语句
CreateExcelRecordset.Open "Select * From ["&sheet&”$]”, conn, 2, 2
End Function
----
灌灌
灌灌
灌灌
灌灌 灌灌
灌灌 灌灌灌
灌灌灌灌灌灌灌 灌灌 灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌
灌灌灌灌灌灌
灌灌灌灌灌灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌灌
灌灌 灌灌 灌灌灌灌
灌灌 灌灌 灌灌灌灌灌
灌灌 灌灌 灌灌灌灌灌
灌灌 灌灌 灌灌
灌灌灌灌
灌灌灌
灌 |
|