この発言に対し以下のコメントが寄せられています

#00398　watashi　　     さん　RE:Excelを使う





新しくエクセルのファイルを作る例と、既存のファイルを開いて変更を加え
上書きする例をイカに示します。
Usesに ComObjを追加して下さい。(Delphi ver3 Excel97)
Unassignedは本来不要だと思いますが、念のため、、
Excel.Quitをやらないとどんどんリソースが減っていって悲しいことに
なったと思いますので注意
フォームにボタンを二つおいて、

//新規にファイルを作る例　シートは三枚

procedure TForm1.Button1Click(Sender: TObject);
var
   Excel: Variant;
   WorkBook: Variant;
   WorkSheet: Variant;
begin
   //仮に三枚のシートを使うと仮定
   Excel := CreateOleObject('Excel.Application');
   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;

//既存のファイルを開いて変更し上書きする例

procedure TForm1.Button2Click(Sender: TObject);
var
   Excel: Variant;
   WorkBook: Variant;
   WorkSheet: Variant;
begin
   //仮に三枚のシートを使うと仮定
   Excel := CreateOleObject('Excel.Application');
   {もしExcelを表示させたいなら Excel.Visible:=True;}
   WorkBook :=Excel.WorkBooks.Open(FileName := 'c:\poo.xls', readOnly := 
False);
   WorkSheet := WorkBook.WorkSheets[1];
   WorkSheet.name:='woo';
   WorkSheet.Cells[1,1].Value:='woopooofooo';
   WorkSheet.Columns[1].EntireColumn.AutoFit;
   WorkBook.Save;//上書き　別名ならsaveAs( Filename:='c:\poo.xls');
   WorkBook.close;
   WorkBook:=unAssigned;
   WorkSheet:=unAssigned;
   Excel.Quit;
   Excel:=unAssigned;
end;

☆☆☆　わからないときサンプル蔵　わかったときサンプル蔵　☆☆☆
                                 98/02/11(水) 18:24 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。