繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP向Excel导数据(图片)终结版 ASP操作Excel
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
ASP向Excel导数据(图片)终结版 ASP操作Excel
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 40 ::
收藏到网摘: 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
