EXCELの落しこみに関して (ID:10327)

名前

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

本文

begin
        WITH ExcelApplication1 DO
begin
             Connect;            
             Visible[0] :=false; 
             Workbooks.Add(EmptyParam,0);
             ExcelWorksheet1.ConnectTo(ActiveWorkbook.Activesheet as _worksheet);
begin
        WITH Excelworksheet1 DO
             Screen.Cursor := crHourGlass;
             Query1.First;
         FOR i := 1 TO Query1.RecordCount DO
begin
         FOR j := 1 to Query1.Fields.Count DO
begin
             Cells.Item[i+4,j].Value:=Query1.Fields[j-1].AsString;
end;
            Query1.Next;
end;
begin
        WITH Excelworksheet1 DO
begin
        WITH Pagesetup DO
end;
end;
            DisplayAlerts[0] := false;   
             ActiveWorkbook.SaveAs(SaveDialog1.FileName,EmptyParam,
             EmptyParam,EmptyParam,EmptyParam,
             EmptyParam,0,EmptyParam,EmptyParam,
             EmptyParam,EmptyParam,0);

ActiveWorkbook.Close(False,EmptyParam,False,0);
             ExcelApplication1.Quit;
             ExcelApplication1.Disconnect;
             Excelworksheet1.Disconnect;
end;
end;
end;
end;
end;

省略させていただきましたが、このような文法です。
ちなみに、総合計をQUERYのsumを使って付け加えております。
よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る