下面的代码有什么问题?
为什么doc := System.DispatchHelper.Create(app.PropertyGet('Workbooks[1].WorkSheets[1]',[]));
这一句报错?
var
o: Object;
app, docs, doc: System.DispatchHelper;
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', []);
doc := System.DispatchHelper.Create(app.PropertyGet('Workbooks[1].WorkSheets[1]',[]));
//app.PropertyPut('Workbooks[1].WorkSheets[1].Name', ['wxw']);
//释放接口对象。
(o as System.IDisposable).Dispose;
end; |