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;

然后通過XLSReadWriteII21.MSOPictures.Items[id – 1].SaveToFile(‘f:/pic/otm002/’+ fn );方法存入到指定文件夾。但這種方法的前提是圖片對齊cell。