エクセルを操作するには？ (ID:1680)

名前

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

本文

以下のサンプルは、「http://www.nifty.ne.jp/forum/fdelphi/samples/index.htm」の
「http://www.nifty.ne.jp/forum/fdelphi/samples/00389.html」以下のスレッドに
書いてあったものを、Win2000 + Delphi6Personal + Excel2000で検証したものです。

//-----ここから-----------
Usesに ComObjを追加します。

//新規作成
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';//セル"A1"に文字を入力
  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');
  WorkBook := Excel.Workbooks.Add;
  {もし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;

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

戻る