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