Excel讀寫方案XLSReadWriteII使用技巧總結

XLSReadWriteII是一個讀寫Excel的組件。他的通常已用只要按照Demo操做基本都能實現，只要不是很是複雜的應用，XLSReadWriteII仍是可以勝任的。

最近被派了一個寫入圖庫的應用，圖庫是Gallery2圖庫，自己支持自定義字段功能，原始文件是一個排版完整的Excel表格，程序的目標是讀取Excel表格的文字圖片信息，寫入Gallery2或者是生成一個SQL語句，直接插入到Gallery2的MySQL數據庫。只要把自定義的信息和圖片名稱對應起來就好。

XLSReadWriteII使用MSOPictures來存儲圖片對象，使用Sheet.DrawingObjects.Pictures來對圖片佈局，所以就有可能存在這樣的狀況，DrawingObjects.Count和MSOPictures.Count不相等。

這是由於Sheet.DrawingObjects.Pictures對象存儲的只是對DrawingObjects的一個引用。所以須要解決的問題是：已知行號和列號，如何在獲得圖片在MSOPictures中的索引或者對應值。

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;

轉自： https://blog.csdn.net/zengcong2013/article/details/18714493

http://www.axolot.com/BB3/viewforum.php?f=9&sid=c7c940e6e3b9bfd05aed4c6d06ae485f