VBA代码转Delphi

[地狱圣者]

如下所示为VBA代码：
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
怎么才能转换为delphi代码呢？？
vba代码转delphi有没有方便的方法呢？

[feiba7288]

没有方便的方法，只能看VBA代码里面参数类型在Delphi里面对应的参数类型是什么，一个个翻译过来。

• 打赏
• 举报

回复 赞

[Henry.6]

var
  xlApp:TOleVariant;
begin
  try
    SelfControl := False;
    XlApp := GetActiveOleObject('Excel.Application'); // connect to  running instance  except
    try
      XlApp := CreateOleObject('Excel.Application'); // no running  instance, start new.
    except
      MessageDlg('Unable to start Excel', mtError, [mbOk], 0);
      Exit;
    end;
    //// here comes some code to open / select worksheet, ... etc
    Xlapp.Selection.Subtotal(3, xlSum, VarArray(4), True, False, True)

  except

  end;

refer to http://www.delphigroups.info/2/7/932322.html

• 打赏
• 举报

回复 赞

[地狱圣者]

核心代码如下： XlsSheet.select; XlsSheet.Rows['2:' + inttostr(J - 1)].select; v := varArrayCreate([0, 1], varsmallint); v[0] := 1; v[1] := 4; ExcelObj.Selection.Subtotal(3, -4157, v, true, false, true); //-4157 等价于 xlsum XlsSheet.Range['A1'].select;

• 打赏
• 举报

回复 赞