EXCELに貼り付けたデータを集計(SUBTOTAL)するには？

解決

Ｊ 2002-10-30 06:48:24 No: 1856

DELPHI4,EXCEL2000を使用しています。
以下のソースでEXCELにデータを貼り付け後集計をしたいと思っています。
しかしながらコンパイル時に７行目で
”式が必要な場所に 'ARRAY' があります”とエラーメッセージがでます。
７行目を
TotalList := 8,
とするとうまくいきますが
複数項目の合計をとる為の設定ができません
どうか良い方法を教えてください。

1:  WBook.Worksheets['Sheet1'].Range['A6'].PasteSpecial;// データ貼り付け
2:
3:  WBook.Worksheets['Sheet1'].Range['A5:R65536'].Subtotal (
4:    GroupBy := 3,
5:    //Function := xlSum,
6:    Function := -4157,
7:    TotalList := ARRAY(8,9,13,16),
8:    Replace := True,
9:    PageBreaks := False,
10:    SummaryBelowData := True
11:  );

にしの 2002-10-30 08:17:25 No: 1857

あまり詳しくないのですが、

TotalList := VarArrayCreate([8,9,13,16], varInteger),

でどうですか？

Ｊ 2002-10-30 18:17:08 No: 1858

var
  V_Totallist: Variant;
begin
     ・・・・・・・・・・・・・・・・・・・
  V_Totallist := VarArrayCreate([0, 3], varVariant);
  V_Totallist[0] := 8;
  V_Totallist[1] := 9;
  V_Totallist[2] := 13;
  V_Totallist[3] := 16;
     ・・・・・・・・・・・・・・・・・・・
    TotalList := V_Totallist,

でうまくいきました。
どうもありがとうございました。