实际上用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 保存上述所做的工作
内容版权声明：除非注明，否则皆为本站原创文章。