【结贴】我想直接操作Excel文件，请问应该如何处理？**

laiqinghe

http://www.baidu.com/s?wd=delphi+excel&cl=3

这样就有很多delphi 操作excel的例子
www.2ccc.com
wwwcsdn.net
都有楼主想要的东西

yt_wxw

用Delphi掉用肯定没有问题啦，
现在的问题是使用DispatchHelper调用Exce对象的l属性的时候有一些写法不知道该怎么写，或者是不知道支不支持？比如：v.Workbooks[1].WorkSheets[1].Name := 'DELPHI演示';这句代码用DispatchHelper如何调用？
我是这样写的：System.DispatchHelper.Create(app.PropertyGet('Workbooks[1].WorkSheets[1]',[]));
但是运行抱错

jiahaiminghr

DispatchHelper

平台上访问接口都是通过DispatchHelper实现的，通过创建DispatchHelper的实例，调用这个实例的方法来访问接口的属性或者调用接口的方法。
1.1. 相关属性和方法

   1. constructor create(idispatch: TObject); overload;
      创建接口对象的实例
   2.function InvokeMethod(Name: string; Params: array of TObject): TObject; overload;
      调用接口的Name方法，用Params作为参数
   3.function InvokeMethod(Name: string; ParamsByRef: array of Boolean; Params: array of TObject): TObject; overload;
      调用接口的Name方法，用ParamsByRef作为传值参数，用Params作为传参参数
   4.function PropertyGet(Name: string; Params: array of TObject): TObject; overload;
      获取接口的Name属性值作为函数返回值
   5.procedure PropertyPut(Name: string; Params: array of TObject); overload;
      设置接口的Name属性值

1.    1 var
   
2.    2   o:   Object;   
   
3.    3   app, docs, doc: System.DispatchHelper;
   
4.    4 begin   
   
5.    5   //创建接口对象o
   
6.    6   o   := ComObj.CreateOleObject('Word.Application');   
   
7.    7   //根据接口对象o创建接口app
   
8.    8   app := System.DispatchHelper.Create(o);
   
9.    9   app.PropertySet('Visible', [False]);
   
10.   10   docs := System.DispatchHelper.Create(app.PropertyGet('Documents',  []);
    
11.   11   docs.InvokeMethod('Open', []);
    
12.   12   ...
    
13.   13   //释放接口对象。
    
14.   14   (o as System.IDisposable).Dispose;
    
15.   15 end;
    

复制代码

楼主，你的问题主要是app.PropertyGet('Workbooks[1].WorkSheets[1]',[])中的属性名写错了，这个属性的写法需要查一下Office的资料

yt_wxw

那么这么说吧：类似v.Workbooks[1].WorkSheets[1].Name 这样的属性应该怎么写呢？

yt_wxw

Workbooks[1]中的[1]应该怎么处理？
写成
System.DispatchHelper.Create(app.PropertyGet('Workbooks[1]',  []);
是否可以获得Workbooks[1]这个对象？

yt_wxw

??

jiahaiminghr

procedure TMainForm.Button3Click(Sender: TObject);
var
     o, workbook:   Object;
     app, docs, doc,
     worksheets, worksheet: System.DispatchHelper;
     i: integer;
begin
  //创建接口对象o
  o   := ComObj.CreateOleObject('Excel.Application');

  //根据接口对象o创建接口app
  app := System.DispatchHelper.Create(o);
  app.PropertyPut('Visible', [True]);
  docs := System.DispatchHelper.Create(app.PropertyGet('WorkBooks',[]));
  docs.InvokeMethod('ADD', []);

  workbook := docs.PropertyGet('Count',[]);
  i := ObjectHelper.ToInt(workbook);
  if i>0 then
    begin
      doc := System.DispatchHelper.Create(docs.PropertyGet('Item',[1]));
      worksheets := System.DispatchHelper.Create(doc.PropertyGet('Sheets',[]));
      worksheet := System.DispatchHelper.Create(worksheets.PropertyGet('Item',[1]));
      worksheet.PropertyPut('Name', ['wxw']);
    end;


  //释放接口对象。
  (o as System.IDisposable).Dispose;
end;

yt_wxw

ok 谢谢

jiahaiminghr

谢谢反馈，没有问题就结贴了。