繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP向Excel导数据(图片)终结版 ASP操作Excel
- ASP
- ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
- asp base64加解密函数代码
- Discuz!NT 论坛整合ASP程序论坛
- discuz 2.0整合asp系统,用户添加函数
- P3P 和 跨域 (cross-domain) cookie 访问(读取和设置）
- 通过asp程序来创建access数据库
- 检查access数据库中是否存在某个名字的表的asp代码
- asp #include file 与 #include virtual 的区别小结
- 一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
- asp 横排显示数据
- asp base64 utf-8为了兼容asp.net的base64
- 两个非常规ASP木马(可躲过扫描)
- asp DateDiff实现文字在特定时间后消失
- ASP所有的Session变量获取实现代码
- 关于ASP eof与bof 区别分析
- asp ajax注册验证之 防止用户名输入空格
- asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
- ASP 获取文件扩展名函数getFileExt()
- asp 简单分页代码
- asp删除mssql数据库中没有记录的图片代码
ASP向Excel导数据(图片)终结版 ASP操作Excel
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 224 ::
收藏到网摘: n/a
ASP向Excel导数据(图片)终结版 ASP操作Excel，需要的朋友可以参考下。 相信有很多人有用程序向Excel导数据的需求, 且做过. 一般导出一些文本数据是很方便的, 可选方法很多, 比如拼接文本字符串存.cvs格式(以逗号与回车符分隔数据,默认用Excel打开), 比如把xls文件当成数据用SQL来操作 等等. 当需要导出图片数据的时候该怎么办? 这就需要使用Excel.Application对象.
实际上用Excel.Application可以做到OfficeExcel软件所能做到的全部操作, 功能相当强大. 但我们每个人学习精力有限, 不可能每个都对它很熟悉. 于是乎, 我选用了大量的关键词在百度与Google上搜索, 希望能得到一些有价值的东西. 但找来找去, 没发现一篇是完整版, 大多数是询问的, 而且代码中包含诸多的明显错误与功能上的缺性. 值得批评的是, 大量站点直接复制他人站点文章, 而且还是劣质文章. 诶, 不找也罢! 佛曰 我不下地狱谁下地狱, 于是我给大家把这个工作给做了.
我首先找了个VBA的手册合集, 还好它是chm格式. 打开其中的Vbaexcelxl10.chm, 嗯, 不错不错, 确实是一个不错的手册, 但是, 它不是一个教程, 欲哭无泪… 没办法, 只好硬头皮看下去. 手册毕竟是手册, 不会一把些细节上的便捷操作提出来, 也不会把各部分内容的逻辑关联讲得很完整. 经过我仔细的分析, 大胆的预测, 周密的思考, 大量的试验, 上刀山,下火锅, 不对,是火海, 好不容易才把它完美的实现了. 现在, 又把它连夜传到Web630.Net上, 仅仅只是希望大家记住这个站点, 同时希望各技术站多点原创文章, 为中国的程序业发展做点贡献.
复制代码 代码如下:
<%
Rem 初始化ExcelApplication的工作环境
Dim ExcelApp,eBook,eSheet
Set ExcelApp = CreateObject(”Excel.Application”) ‘建立Excel对象
ExcelApp.DisplayAlerts=false ‘不显示警告
ExcelApp.Application.Visible=false ‘不显示界面
Rem 初始化Excel数据
‘ExcelApp.Workbooks.Open(Server.MapPath(”zzz.xls”)) ‘打开Excel工作本,可替换下面一行
Set eBook=ExcelApp.Workbooks.Add ‘新建Excel工作本
Set eBook=ExcelApp.Workbooks(1) ‘引用第一个工作本
set eSheet = eBook.Worksheets(1) ‘引用第一个工作表
Rem 数据导入
Dim i,img
i = 1
For i=1 To 5
eSheet.Cells(i,1).Value=”字段一”&i
eSheet.Cells(i,2).Value=”字段二”&i
eSheet.Cells(i,3).Value=”字段三”&i
eSheet.Cells(i,4).Select ‘选择第i行第4个单元单元格
Set img=eSheet.Pictures.Insert(Server.MapPath(”people.jpg”)) ‘在上述位置插入图片,并得到图片的引用
img.Top=img.Top+2 ‘调整图片位置,下同, 否则它会压住表格边线
img.Left=img.Left+2 ‘单位是磅
eSheet.Rows(i).RowHeight=img.Height+4 ‘调整当前行的高度,让它自动与图片高度相同
Next
Rem 保存上述所做的工作
‘eBook.Save ‘如果是打开已经存在的Excel文件,则可选用这行来代替下面一行
eBook.SaveAs Server.MapPath(”zzz.xls”)
Set eSheet=Nothing
Set eBook=Nothing
‘ExcelApp.Quit ‘一定要退出, 否则Excel的进程留在操作系统中.
set ExcelApp = Nothing
%>
ASP向Exce读取或写入数据时, 比较简洁的一种方法是把Excel当作数据库使用SQL语句来操作. 网上很多地方都有相关的文章, 本文仅作为《ASP向Excel导数据(图片)终结版》的辅助资料给大家参考.
复制代码 代码如下:
<%
Dim conn,rs,sql
Sub DBOpen()
Dim db : db=Server.MapPath(”zzz.xls”)
Set conn=Server.CreateObject(”Adodb.Connection”)
On Error Resume Next
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=”"Excel 8.0;HDR=YES”";Data Source=” & db
Rem HDR 默认为YES,表示第一行作为字段名, 否则视它为内容
Rem 对于Excel2007,而应为: “Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;”
If Err.Number<>0 then
Err.Clear
Response.Write(”<h1>The Database link is ERROR</h1>”)
Response.End()
End If
On Error GoTo 0
End Sub
Sub DBClose()
If IsNotBlank(conn) Then
conn.Close()
Set conn=Nothing
End If
End Sub
Function IsNotBlank(ByRef TempVar)
IsBlank = True
Select Case VarType(TempVar)
Case 0,1 ‘Empty & Null
IsBlank = False
Case 9 ‘Object
If TypeName(TempVar) = “Nothing” Or TypeName(TempVar) = “Empty” Then
IsBlank = False
End If
End Select
End Function
Call DBOpen()
sql=”SELECT * FROM [Sheet1$]” ‘注意表名的写法, 需要在工作表名的后面加符号$
Set rs=conn.Execute(sql)
While Not rs.Eof
Response.Write(rs(0)&”, “)
Response.Write(rs(1)&”, “)
Response.Write(rs(2)&”<br />”&VbCrLf)
rs.Movenext
Wend
rs.Close : Set rs=Nothing
Call DBClose()
%>
评论 (0) All
