如何把excel文件通过asp导入到sqlsever数据库去

vick791003 2004-12-09 10:42:45
如何把excel文件通过asp导入到sqlsever数据库去,谢谢!
...全文
165 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dh20156 2004-12-10
OH,S H I T,我贴代码的时候把i的忘了~~BS自己一下~ -_-!!!
回复
vick791003 2004-12-10
哈哈可以了:
那个循环体里出现没有让i植没有加1
应该加一个:i=i+1

:<%
'On Error Resume Next
Set xlApp=server.CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
xlApp.Application.Visible = false

strsource = Server.MapPath("test.xls")

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)
dim i
i=1
while xlsheet.cells(i,1)<>""
t1 = xlsheet.Cells(i,1)
t2 = xlsheet.Cells(i,2)
Response.Write t1&"|"&t2&"<br>"

'这里进行数据库操作
i=i+1
wend

set xlsheet=nothing
set xlbook=nothing
xlApp.Quit
Set xlApp=Nothing

%>
回复
dh20156 2004-12-10
我测试没问题啊,你的IE什么版本啊?
回复
vick791003 2004-12-10
装了啊
回复
dh20156 2004-12-10
安装了EXCEL么?
回复
vick791003 2004-12-10
Server.CreateObject 失败

/lqiqs/test2.asp,行3

服务器运行失败
我就只运行了第一个语句

Set xlApp = server.CreateObject("Excel.Application")
为什么为出错啊
回复
vick791003 2004-12-10
dh20156(风之石) 你好:
这段代码运行不了啊,提示有excel.exe有错误
回复
lei7909 2004-12-09
关注
回复
imwinner 2004-12-09
很简单,你先用ASP连接到EXEL表,读取里面的记录集出来,然后再创建个CONN连接到SQL,把刚才的记录导入到SQL里不就行了
回复
dh20156 2004-12-09
参考:
test.xls

test1,7027元
test2,7027元
test3,7300元
test4,7500元
test5,7500元


<%
On Error Resume Next
Set xlApp = server.CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
xlApp.Application.Visible = false

strsource = Server.MapPath("test.xls")

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

while xlsheet.cells(i,1)<>""

t1 = xlsheet.Cells(i,1)
t2 = xlsheet.Cells(i,2)

'这里进行数据库操作

wend
set xlsheet=nothing
set xlbook=nothing
xlApp.Quit
Set xlApp=Nothing %>
回复
vick791003 2004-12-09
如何把excel文件通过asp前台导入到sqlsever数据库去,谢谢!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-09 10:42
社区公告
暂无公告