ASP向Excel导数据_图片_终结版 ASP操作Excel_5649

							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()
%>