ASP直接调用EXCEL数据的例子(不用ODBC)
ASP直接调用EXCEL数据的例子(不用ODBC),ASP直接调用EXCEL数据的例子(不用ODBC)
在"c:excelbook1.xls"存在一个EXCEL表book1.xsl,表的结构如下:
1 序号 名称 金额
2 1 张三 100
3 2 李四 200
4 3 王五 300
序号字段不为空
注意:excel 起始行是1而不是为0
<%@language=vbscript %
<%
Set xlApp = server.CreateObject("Excel.Application")
strsource = "c:excelbook1.xls"
Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)
i=1
response.write "<table cellpadding=0 cellspacing=0 border=1 width=500"
while xlsheet.cells(i,1)<""
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
wend
response.write "</table"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit '千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过"set
xlApp=nothing"是不行的。
%