请教ASP+ACCESS数据库中有图片,也有图片地址,如何将图片导出到EXCEL,在EXCEL里面要是图片面不是图片路径.在线等.

xtafhvk 2008-04-18 02:20:04
请教ASP+ACCESS数据库中有图片,也有图片地址,如何将图片导出到EXCEL,在EXCEL里面要是图片面不是图片路径.在线等.
...全文
107 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xtafhvk 2008-04-18
补充:我不知我有多少分.但是有谁能帮我解决我所提的问题我把我的分全给他.这个论谈里面我搞不太明白,给他账号,他自己去加分.现在图片加入到EXCEL是解决了,代码在网上找的,但是图片的大小和位置无法控制,我想让图片固定在某个单元格.现在代码如下:


<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from images where 1=1"
rs.open sql,conn,1,1
Set ExcelApp =CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密码"
cnt =3
do while not rs.eof
ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("id")
ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("huohao")
ExcelBook.WorkSheets(1).Pictures.Insert("C:\3.jpg").Select '注明:我想让图片在每行的第三列.并且不能挡做别的单元格的内容.最好能固定大小.

ExcelBook.WorkSheets(1).cells(cnt,4).value ="aaaa"
rs.movenext
cnt = cint(cnt) + 1
loop

Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
%>


我是生手,回复时请详细说明代码及用途.
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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