VBA代码转Delphi

地狱圣者 2013-02-19 09:53:31
如下所示为VBA代码:
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
怎么才能转换为delphi代码呢??
vba代码转delphi有没有方便的方法呢?
...全文
521 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
地狱圣者 2013-02-20
核心代码如下: 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;
  • 打赏
  • 举报
回复
Henry.6 2013-02-19

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
  • 打赏
  • 举报
回复
feiba7288 2013-02-19
没有方便的方法,只能看VBA代码里面参数类型在Delphi里面对应的参数类型是什么,一个个翻译过来。
  • 打赏
  • 举报
回复
相关推荐
发帖
非技术区
加入

808

社区成员

Delphi 非技术区
申请成为版主
帖子事件
创建了帖子
2013-02-19 09:53
社区公告
暂无公告