Matlab---如何利用Com对象

% 1获取Com对象清单
list = actxcontrollist;  
s=sprintf(' Name = %s\n ProgID = %s\n File = %s\n', list{114:115,:});


h = actxcontrolselect;% 获取GUI控件


% 2 查找某个Com对象。
for ii = 1:length(list)
   if ~isempty(strfind([list{ii,:}],'word')) 
      s = sprintf(' Name = %s\n ProgID = %s\n File = %s\n', ...
             list{ii,:})
   end
end


% 3 获取GUI COM控件
s=actxcontrolselect;


% 4 创建Com对象、 
e=actxserver('Excel.application');
e.visible=1; %可视化
eWorkbooks=e.Workbooks; 
w=eWorkbooks.Add  


%5 获取属性、接口
e.get % 提取属性用get  
isprop %是否是属性
isinterface% 是否是接口
e.get('Visible') %提取某个属性的值  e.visible  e.Visible  属性不区分大小写
e.visible=1; e.set('visile',1); set(e,'visible',1) ;% 修改属性
 
cal = actxcontrol('mscal.calendar', [0 0 500 500]);
cal.propedit  % 可视化修改属性

e.addproperty('positon')
e.deleteproperty('positon')


%6 获取方法
e.invoke% 提取方法用invoke
e.methods% 提取方法用methods 
e.methods('-full') % 详细信息
e.methodsview  % 提取方法用methods  可视化
ismethod
%7 获取事件
e.events
e.eventlisteners % 显示未注册的事件
isevent

%8 退出
e.Workbook.Close
e.Quit; %  退出实例，还可以重新调用。  
e.release %释放控制 ，不能重新调用了。
e.delete;% 释放控制，删除对象， 不能重新调用了。

delete(e)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

分享一个类，用于整合Com对象的属性，接口，类，方法

classdef   getCom      
    properties
        interface
        subinterface
        propoties
        method
        class
        event
    end
    
    methods
        function obj=getCom(Component)
           
                obj.interface=Component;
                obj.event=Component.events;
                obj.method=Component.methods;
                obj.class=Component.class;
                s=Component.get;
                [obj.propoties,obj.subinterface]=getprop_subinterface(s);                
             
        end
    end
      methods
          function  [propoties,subinterface]=getprop_subinterface(s) 
              n=0;m=0;
              fieldslist=fields(s);
              for i=1:length(fieldslist) 
                  if isinterface(s.(fieldslist{i}))
                         m=m+1;
                   subinterface.(fieldslist{i})=s.(fieldslist{i});
                  else
                    n=n+1;
                  propoties.(fieldslist{i})=s.(fieldslist{i});  
                  end
                
              end   
              propoties=orderfields(propoties);
              subinterface=orderfields(subinterface);
          end
            
      end
    
end