EXCELについて

解決

シャチ 2004-07-01 00:43:40 No: 9705

大変申し訳ないですが、またまた質問させていただきます。
Queryから呼出したデータをExcelにエクスポートします。
そこで、項目の合計をExcelに落とす方法を教えていただきたいと思います。

Delphi5
windowsXP

漠然とした質問ですが、よろしくお願いします。

HOta 2004-07-01 00:47:21 No: 9706

漠然とした答えになりますが、
OLEを使ってExcelを呼び出し、適当な位置に落とします。
ComObjをUseして下さい。
Serversページのコンポーネントを使っても同様です。

シャチ 2004-07-01 01:13:15 No: 9707

ちょっと説明不足でした。実際、処理をしたい作業としては
QUERYから呼出したデータの合計処理。それと合計含めたデータのエクスポート（EXCEL)
です。よろしくお願いします

HOta 2004-07-01 19:41:09 No: 9708

QUERYから呼出したデータの合計処理は、プログラムで行うか、
Queryで行えば問題ないと思います。
Excelへの出力は、前にも書きましたが、OLEで呼び出して、出力すれば
こんな感じです。
procedure TForm1.Button1Click(Sender: TObject);
var
   Excel: Variant;
   WorkBook: Variant;
   WorkSheet: Variant;
begin
   Excel := CreateOleObject('Excel.Application');
   WorkBook := Excel.Workbooks.Add;//これが抜けていた
   while Workbook.sheets.count<3 do
   begin
      Workbook.sheets.add;
   end;
   WorkSheet := WorkBook.WorkSheets[1];
   WorkSheet.name:='poo';
   WorkSheet.Cells[1,1].Value:='pooo';
   WorkSheet.Columns[1].EntireColumn.AutoFit;
   WorkBook.SaveAs( Filename:='c:\poo.xls');
   WorkBook.close;
   WorkBook:=unAssigned;
   WorkSheet:=unAssigned;
   Excel.Quit;
   Excel:=unAssigned;
end;

シャチ 2004-07-02 03:12:35 No: 9709

とても解りやすい文法まで書いていただき、誠に有難うございます。
これからもよろしくお願いします