如何用SAS<em>读取EXCEL</em>文件SAS论坛-asp 读取 excel,aspex

当mdb一样使用即可。只不过数据库是XLS。把 access 换成 Excel ，表第一行 为 字段名

一、用e79fa5e98193e78988e69d83335SAS读取EXCEL文件SAS论坛的方法：有四种方法。

1、用import将数据库导入；

2、通过制定libname库和引擎；

3、使用access过程；

4、通过odbc方式。

二、方法的实现：

1、用导入的方法比较简单，示例代码如下：

2、用逻辑库和引擎的方法代码：libname
tests excel 'D:tests.xls';

3、用ACCESS的过程：

4、odbc的方法：先手工在控制面板里，新建用户dsn，创建相应数据类型的数据源；然后再sas的资源管理器里，手工新建逻辑库odbc。实际应用时，sas系统与大型数据库连接时，这是比较简单可行的方法。

三、使用工具：SAS、excel、数据库。

四：注意事项：

用access并不是把数据文件真正的读入到sas中来，而是先建立一个数据访问描述器create
work.s0001.access，用来描述sas对数据库的访问，之后建立一个视图create
work.s001.view;视图和sas里的数据文件也不一样，相当于一个查询。用access方法访问数据库的好处是不占用硬盘空间，特别是数据文件特别大时，不需要把文件全部读入就可以进行数据访问，同时数据操作的结果也可以写回到数据库中。

Dim Conn,Driver,DBPath,Rs
'建立百Excel的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

下面是e68a84e799bee5baa6e997aee7ad94338读取一个EXCEL文件并将其写入数据库的代码实例，亲测通过：
注意：EXCEL里面的列名称要和数据库里的字段相同
<%
i=0
Dim cn,oConn,connstr
'打开XLS.
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("list.xls") & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("TEST.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
oConn.open connstr
'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [list$]",cn,1,1
do until rsRead.EOF
'写入数据库.
oConn.Execute("Insert into eer(mc)Values('"& rsRead.Fields("mc") & "')" )
rsRead.MoveNext
i=i+1
loop
response.write("<p align=center>成功导入"&i&"条数据</p>")
response.Write("<p align=center><a href=javascript:window.close()>关闭窗口</a></p>")
%>