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有没有方便的方法呢?
...全文
578 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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里面对应的参数类型是什么,一个个翻译过来。

830

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧