原創(chuàng)|其它|編輯:郝浩|2012-10-09 14:52:27.000|閱讀 3603 次
概述:XLSReadWriteII的使用技巧, XLSReadWriteII使用MSOPictures來存儲圖片對象,使用Sheet.DrawingObjects.Pictures來對圖片布局,因此就有可能存在這樣的情況,DrawingObjects.Count和MSOPictures.Count不相等。這是因?yàn)镾heet.DrawingObjects.Pictures對象存儲的只是對DrawingObjects的一個引用。因此需要解決的問題是:已知行號和列號,如何在得到圖片在MSOPictures中的索引或者對應(yīng)值。
# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
XLSReadWriteII是一個讀寫Excel的組件。他的一般已用只要按照Demo操作基本都能實(shí)現(xiàn),只要不是非常復(fù)雜的應(yīng)用,XLSReadWriteII還是能夠勝任的。
最近被派了一個寫入圖庫的應(yīng)用,圖庫是Gallery2圖庫,本身支持自定義字段功能,原始文件是一個排版完整的Excel表格,程序的目標(biāo)是讀取Excel表格的文字圖片信息,寫入Gallery2或者是生成一個SQL語句,直接插入到Gallery2的MySQL數(shù)據(jù)庫。只要把自定義的信息和圖片名稱對應(yīng)起來就好。
XLSReadWriteII使用MSOPictures來存儲圖片對象,使用Sheet.DrawingObjects.Pictures來對圖片布局,因此就有可能存在這樣的情況,DrawingObjects.Count和MSOPictures.Count不相等。
這是因?yàn)镾heet.DrawingObjects.Pictures對象存儲的只是對DrawingObjects的一個引用。因此需要解決的問題是:已知行號和列號,如何在得到圖片在MSOPictures中的索引或者對應(yīng)值。
Function GetID(row: integer): integer; var i: integer; begin result := 0; for i := 0 to XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures.Count – 1 do begin if XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures[i].Row1 = row then result := XLSReadWriteII21.Sheet[sheet].DrawingObjects.Pictures[i].PictureId; end; end;
然后通過XLSReadWriteII21.MSOPictures.Items[id – 1].SaveToFile(‘f:/pic/otm002/’+ fn );方法存入到指定文件夾。但這種方法的前提是圖片對齊cell。
本站文章除注明轉(zhuǎn)載外,均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載,但請務(wù)必注明出處、不得修改原文相關(guān)鏈接,如果存在內(nèi)容上的異議請郵件反饋至chenjj@fc6vip.cn
文章轉(zhuǎn)載自:SmallHand的CSDN博客