2024年4月5日发(作者:)

ASP 读取Excel文件

我们都知道,在做网站的时候,有时需要把Excel的数据作为数据库的数据来

使用,那么我们怎么才能在ASP的环境中读取Excel的文件呢?本练习就着重讲解

ASP读取Excel文件。首先介绍了操作Excel的基础内容,接下来讲解了一个实例,

最后对使用时的注意事件进行了介绍。

1.ASP对Excel的基本操作

(1)创建Excel对象可以通过下面的代码来实现:

<%

set objExcelApp = CreateObject("ation")

yAlerts = false '不显示警告

ation = false '不显示界面%>

(2)新建Excel文件可以通过以下代码来实现:

<%

set objExcelBook = WorkBook

set objExcelSheets = eets

set objExcelSheet = (1)

%>

(3)读取已有的Excel文件可以通过下面的代码来实现:

<%

strAddr = h(".")

(strAddr & "")

set objExcelBook = WorkBook

set objExcelSheets = eets

set objExcelSheet = eets(1)

%>

(4)另存Excel文件可以通过以下代码来实现:

<%

strAddr & ""

%>

(5)保存Excel文件可以通过以下代码来实现:

<%

%>

(6)退出Excel操作可以通过以下代码来实现:

<%

'一定要退出

set objExcelApp = nothing

%>

2.读取Excel文件的实例

(1)首先我们先建立一个Excel的文件夹,本案例所有用的文件均在该文件夹

下。在该文件夹下用Office 2003的Excel创建一个名为文件,需要注意的

是,第一行我们作为数据的标题部份。Excel表格结构如图7-11。

图7-11 Excel表结构

(2)在该目录下建立一个名为文件,程序源码如下所示:

<%

dim conn,strAddr,rs,sql

set conn=object("tion") ’建立Server对象。

strAddr = h("") ’要打开的那个Excel表,要注意路径。

"Provider=.4.0;Extended Properties=Excel 8.0;Data Source=" &

strAddr

set rs=object("set") ’ 创建与Excel的链接

"select * from [Sheet1$]",conn,1,3

i=0

while not

if i mod 2=0 then

trbgcolor="#fafafa"

else

trbgcolor="#eeeeee"

end if

%>

<%

i=i+1

xt

wend

%>

读取Excel文件实例

学号: 姓名: 语文 数学 英语 总分
<%=rs(0)%> <%=rs(1)%> <%=rs(2)%> <%=rs(3)%> <%=rs(4)%> <%=rs(5)%>

(3)在IE7.0浏览器中,地址栏内输入“localhost/”,程序运行结

果如图7-12所示:

图7-12 读取Excel文件结果

3.两种常见的错误

(1)Microsoft JET Database Engine (0x80040E37)

Microsoft Jet 数据库引擎找不到对象'Sheet1'。请确定对象是否存在,并正确地写出它的名称

和路径。

出现此错误为打开Excel表时,工作表的名称错误,正确的名称应该在表名的

后面加上一个“$”符号。例:“ "select * from [Sheet1$]",conn,1,3”表名是

“[Sheet1$]”而不是“[Sheet1]”。

(2)Microsoft JET Database Engine (0x80004005)

外部表不是预期的格式。

出现此错误为建立的Excel表的格式不正确或Excel的版本不正确,正确的表

格式必须为标准的二维Excel表。如果格式正确,则为程序的版本不匹配。

如果用Office 2007的Excel生成.xls文件,则程序将会报错:外部表不

是预期的格式。而用Office 2003的Excel生成.xls文件,程序则可以正

常使用。