请教:如何实现读取excel特定行特定列的数据呢?

angel_1180_0 2005-07-13 09:29:14
我原来用的下面这一段:
Set xlApp = server.CreateObject("Excel.Application")

strsource = "c:\excel\Book1.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
set xlApp=nothing
xlApp.quit
但是运行完一次之后就开一个excel进程,然后就再也不好用了。
...全文
572 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lovedogdog 2005-08-16
  • 打赏
  • 举报
回复
mark
angel_1180_0 2005-07-13
  • 打赏
  • 举报
回复
那比如说:要显示一下excel表“入库表”的第a3个元素
怎么表示阿?我想把该元素表示出来,然后经过判断放入sql数据库中/
孟子E章 2005-07-13
  • 打赏
  • 举报
回复
excelSql = "SELECT * FROM [$sheet1$A1:A2]"
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";Extended Properties=Excel 8.0;"

Set excelCn = Server.CreateObject("ADODB.Connection")
excelCn.Open strCnn
Set rs = excelCn.execute(excelSql)

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧