相信有很多人有用程序向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文件,則可選用這行來代替下面一行
