[结][急：DispatchHelper怎么使用啊？帮我看看这个如何写？[请求]**

dupit

把treelist里的数据生成到excel文件中，我在delphi中已经实现，但是改到X3里不知道怎么改。论坛里找到几个很简单的例子。看不大懂。

var
  ExcelApp:   Variant;
  i,j:integer;
  tmpNode:TdxTreeListNode;
begin
   ExcelApp:=CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible:=false;
    ExcelApp.WorkBooks.Add;
    ExcelApp.WorkSheets[1].Activate;
    //增加列名
    j:=1;
    for i:=0 to dbtlData.ColumnCount-1 do
    begin
      if dbtlData.Columns.Visible then
      begin
        ExcelApp.Cells[j,i+1].Value:=dbtlData.Columns.Caption;
         ExcelApp.ActiveSheet.Columns[i+1].ColumnWidth:=dbtlData.Columns.Width div 8;
      end;
    end;
    ExcelApp.ActiveSheet.Rows[1].Font.Name   :=   '宋体';
   ExcelApp.ActiveSheet.Rows[1].Font.Bold       :=   True;
    //增加数据
    while true do
    begin
      if not assigned(dbtlData.TopNode) then
        break;
      if not assigned(tmpNode) then
        tmpNode:=dbtlData.TopNode
      else
        tmpNode:=tmpNode.GetNext;
      if not assigned(tmpNode) then
        break;
      inc(j);
      for i:=0 to dbtlData.ColumnCount-1 do
      begin
        if dbtlData.Columns.Visible then
        begin
          ExcelApp.Cells[j,i+1].Value:={lpad('',tmpNode.Level*2)+}tmpNode.Values;
         end;
      end;
    end;
    ExcelApp.workbooks[1].SaveAs(SaveDialog1.FileName);
  finally
    ExcelApp.ActiveWorkBook.Saved:=True;
    ExcelApp.WorkBooks.Close;
    ExcelApp.Quit;
   end;

alang

http://wiki.justep.cn/DispatchHelper

dupit

晕，那我问个详细的

ExcelApp.Cells[j,i+1].Value这个怎么翻译？

alang

参考 http://bbs.justep.com/forum.php? ... ghlight=application

dupit

前面的已经搞定。就是最后的保存、退出试了许多次都不行啊。该怎么写能不能举个例子？我在google上查了半天也没有。
app := System.DispatchHelper.Create(ExcelApp);
docs := System.DispatchHelper.Create(app.PropertyGet('WorkBooks',[]));
...
  docs.InvokeMethod('SaveCopyAs',[AFileName]);//这里报错
   // docs.InvokeMethod('SaveAs', [AFileName,0,'','',False,False,False,False,False]);//这个也不对，不知道怎么写了
    docs.PropertyPut('Saved', [True]);//这里报错
    docs.InvokeMethod('Close', []);
    app.InvokeMethod('Quit', []);
    (ExcelApp as System.IDisposable).dispose;

dupit

有人吗？？？？急啊。这个问题搞好几天了

alang

ExcelApp.workbooks[1].SaveAs(SaveDialog1.FileName);

docs := System.DispatchHelper.Create(app.PropertyGet('WorkBooks',[]));
...
  docs.InvokeMethod('SaveCopyAs',[AFileName]);//这里报错

好像应该是
docs := System.DispatchHelper.Create(app.PropertyGet('WorkBooks',[]));
  doc1 := System.DispatchHelper.Create(docs.PropertyGet('Item',[1]));

...
  doc1.InvokeMethod('SaveCopyAs',[。。。]);

alang

而且，根据属性名猜，saved应该是判断当前文件是否保存了，应该不能赋值吧

dupit

因为SaveCopyAs保存的是副本，所以excel退出时仍然会提示是否保存，资料上说把saved属性置为true就可避免提示。

dupit

最初由 alang 发布
[B]ExcelApp.workbooks[1].SaveAs(SaveDialog1.FileName);

docs := System.DispatchHelper.Create(app.PropertyGet('WorkBooks',[]));
...
  docs.InvokeMethod('SaveC..

以下省略...... [/B]

改用doc1是对的。

SaveAs方法的参数那么多，都不知道填些什么。要不然用这个好些。