如何用ASP读取Excel文件

在”c:excel澳门新葡萄京官网首页,book1.xls”存在一个EXCEL表book1.xsl,表的结构如下:
1 序号 名称 金额
2 1 张三 100
3 2 李四 200
4 3 王五 300

1。ASP对Excel的基本操作

序号字段不为空
注意:excel 起始行是1而不是为0 

1)建立Excel对象

<%@language=vbscript %>
<%

Set objExcelApp=CreateObject(Excel.Application)

Set xlApp = server.CreateObject(“Excel.Application”)

objExcelApp.DisplayAlerts=false’不显示警告

strsource = “c:excelbook1.xls”

objExcelApp.Application.Visible=false‘不显示界面

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

2)读取已有的Excel文件

i=1
response.write “<table cellpadding=0 cellspacing=0 border=1 width=500>”
while xlsheet.cells(i,1)<>””

strAddr=Server.MapPath(“.”)

response.write “<tr>”
response.write ” <td height=20 align=center width=100>” & xlsheet.Cells(i, 1) & “</td>” 
response.write ” <td height=20 align=center width=200>” & xlsheet.Cells(i, 2) & “</td>” 
response.write ” <td height=20 align=center width=200>” & xlsheet.Cells(i, 3) & “</td>”
response.write “</tr>”
i=i+1

objExcelApp.WorkBooks.Open(strAddr & “TempletTable.xls”)

wend
response.write “</table>”
set xlsheet=nothing
set xlbook=nothing
xlApp.quit ‘千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过”set 
xlApp=nothing”是不行的。
%>

Set objExcelBook=objExcelApp.ActiveWorkBook

Set objExcelSheets=objExcelBook.Worksheets

Set objExcelSheet=objExcelBook.Sheets(1)

2读取Excel文件实例

Exce表bookl.xsl,表的结构如下:

1 序号  名称 金额

2  1    张三  100

3  2   李四   200

4  3  王五    300

程序如下:

<%

Set xlApp=server.CreateObject(“Excel.Application”)

strsourc=”c:bookl.xls”

Set xlbook=xlApp.Workbooks.open(strsourc)

set xlsheet=xlbook.Worksheets(1)

i=1

response.write”<table cellpadding=0 ellspacing=0 border=1
width=250>”

while slsheer.cells(i,1)<>””

response.write”<tr>”

response.write” <td height=20 align=center width=50>” &
xlsheet.Cells(i,1) & “</td>”

response.write” <td height=20 align=center width=50>” &
xlsheet.Cells(i,2) & “</td>”

response.write” <td height=20 align=center width=50>” &
xlsheet.Cells(i,3) & “</td>”

response.write “</tr>”

i=i+1

wend

response.write”</table>”

set xlsheet=nothing

set xlbook=nothing

xlApp.quit ’一定要加这一句set xlApp=nothing无法释放空间

%>

发表评论

电子邮件地址不会被公开。 必填项已用*标注