この発言は
#00389　凛              さんのExcelを使う
に対するコメントです

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

#00399　凛              さん　RE^2:Excelを使う




  凛さん、こんにちは。

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

    WorkBook := Excel.Application;  // ←追加
    WorkBook.WorkBooks.Add;         // ←追加

>   while Workbook.sheets.count<3 do
>   begin

  省略

>   Excel.Quit;
>   Excel:=unAssigned;
>end;

 上記２行を追加しないとエラーが発生しました。(^^ゞﾎﾟﾘﾎﾟﾘ

 ついでに、

  IF WorkBook.Version < '8.0'
    THEN
     BEGIN
      EXCEL 95 のコード;
     END
    ELSE
     BEGIN
      EXCEL 97 のコード;
     END;

 と、すれば、一応EXCEL95と97両用のプログラムが書けます。(- -)ﾒﾝﾄﾞｳﾀﾞｹﾄﾞ･･

                              98/2/16(Mon) 07:02pm  YRL00021 watashi

Original document by watashi　　     氏 ID:(YRL00021)

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