var 
  vba: TXLSVBAProject;
  i: integer;
begin       
  vba := book.VBAProject;
  for i := 1 to vba.Count do begin
    do_something(vba[i].Name, vba[i].SourceCode);
  end;
end;