この発言は
#00398　watashi　　     さんのRE:Excelを使う
に対するコメントです

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

#00405　watashi　　     さん　RE^3:Excelを使う




watashiさん　こんにちは　凛です。
 ご指摘ありがとうございます。
うーん、動作確認したと思ったんですが、、確かにおかしいですね、、
Niftermにコピーした後でなんかの拍子に1行消しちゃったのかも知れません。
で、実際に使っている元コードを確認し動作確認したのが以下のコードです

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;

でした、
私のところでは
>    WorkBook := Excel.Application;  // ←追加
>    WorkBook.WorkBooks.Add;         // ←追加
にすると
   WorkBook.SaveAs( Filename:='c:\poo.xls');
でエラーが出たんですが、そんなこと無いです？

> と、すれば、一応EXCEL95と97両用のプログラムが書けます。(- -)ﾒﾝﾄﾞｳﾀﾞｹﾄﾞ･･
 (T T) ありがとうございます。 知らなかったです
　
                                     98/02/16(月) 21:32 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

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