EXCELについて (ID:9708)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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;