Axolot Data

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelObj:OleVariant;
  SheetObj:OleVariant;
  CellObj:OleVariant;
  i:integer;
  pict_count:integer;
  pict: TPicture;
begin
  ExcelObj := CreateOleObject('excel.application');
  ExcelObj.Application.DisplayAlerts:=False;
  ExcelObj.Workbooks.Open(ExtractFilePath(application.ExeName)+  'Book1.xlsx');
  SheetObj:=ExcelObj.Workbooks[1].Sheets[1];
  pict_count:=sheetObj.Pictures.Count;
  for i := 0 to pict_count-1 do begin
    CellObj:=SheetObj.Pictures[i+1].TopLeftCell;
   
    //for log
    Memo1.Lines.Add(format('[ %d , %d ]',[integer(CellObj.Row),integer(CellObj.Column)])) ;
   
    SheetObj.Pictures[i+1].select;
    SheetObj.Pictures[i+1].copy;

    if Clipboard.HasFormat(CF_PICTURE) then begin
      pict := TPicture.Create;
      try
        pict.Assign(Clipboard);
        pict.SaveToFile(format('%s',[SheetObj.Pictures[i+1].Name]));
        pict.Free; 
      except
      // Can't convert
      end;
    end;
  end;

  SheetObj:=unassigned;
  CellObj:=unassigned;
  ExcelObj.Quit;
  ExcelObj:=unassigned;
end;